|
@@ -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.
|