mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 19:37:52 +00:00
Code Releases Activity

Use mtime of symlink target

Browse source 
* lisp/org-publish.el (org-publish-cache-ctime-of-src): Use mtime of
symlink target.
This commit is contained in:
David Maus 2011-01-06 20:25:00 +01:00
parent d7f5ac061c
commit b4979a86ca
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org-publish.el
View file

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