Преглед изворни кода

Use mtime of symlink target

* lisp/org-publish.el (org-publish-cache-ctime-of-src): Use mtime of
symlink target.
David Maus пре 14 година
родитељ
комит
b4979a86ca
1 измењених фајлова са 3 додато и 1 уклоњено
  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)))))