diff options
author | David Maus <dmaus@ictsoc.de> | 2011-01-06 20:25:00 +0100 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2011-01-06 20:25:00 +0100 |
commit | b4979a86ca10d058a780440e88c5a3e33c1adff5 (patch) | |
tree | 03c2847e204de1ee2f6dd48dfa00f01e20715787 | |
parent | d7f5ac061c7aaff8d6523404b137909876c4c8dd (diff) | |
download | org-mode-b4979a86ca10d058a780440e88c5a3e33c1adff5.tar.gz |
Use mtime of symlink target
* lisp/org-publish.el (org-publish-cache-ctime-of-src): Use mtime of
symlink target.
-rw-r--r-- | lisp/org-publish.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org-publish.el b/lisp/org-publish.el index bb20cc6..f29b402 100644 --- a/lisp/org-publish.el +++ b/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))))) |