Parcourir la source

Use mtime of symlink target

* lisp/org-publish.el (org-publish-cache-ctime-of-src): Use mtime of
symlink target.
David Maus il y a 14 ans
Parent
commit
b4979a86ca
1 fichiers modifiés avec 3 ajouts et 1 suppressions
  1. 3 1
      lisp/org-publish.el

+ 3 - 1
lisp/org-publish.el

@@ -1068,7 +1068,9 @@ Returns value on success, else nil."
 
 (defun org-publish-cache-ctime-of-src (filename)
   "Get the files ctime as integer."
-  (let ((src-attr (file-attributes filename)))
+  (let ((src-attr (file-attributes (if (stringp (file-symlink-p filename))
+				       (file-symlink-p filename)
+				     filename))))
     (+
      (lsh (car (nth 5 src-attr)) 16)
      (cadr (nth 5 src-attr)))))