| 
					
				 | 
			
			
				@@ -257,15 +257,16 @@ ignored in this case." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-file-newer-than-p (file time) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Non-nil if FILE is newer than TIME. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-FILE is a filename, as a string, TIME is a list of integers, as 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+FILE is a filename, as a string, TIME is a Lisp time value, as 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 returned by, e.g., `current-time'." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (and (file-exists-p file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        ;; Only compare times up to whole seconds as some file-systems 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        ;; (e.g. HFS+) do not retain any finer granularity.  As 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        ;; a consequence, make sure we return non-nil when the two 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        ;; times are equal. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-       (not (time-less-p (cl-subseq (nth 5 (file-attributes file)) 0 2) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			 (cl-subseq time 0 2))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+       (not (time-less-p (org-time-convert-to-integer 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			  (nth 5 (file-attributes file))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			 (org-time-convert-to-integer time))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-compile-file (source process ext &optional err-msg log-buf spec) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Compile a SOURCE file using PROCESS. 
			 |