summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Maus <dmaus@ictsoc.de>2011-01-06 20:25:00 +0100
committerDavid Maus <dmaus@ictsoc.de>2011-01-06 20:25:00 +0100
commitb4979a86ca10d058a780440e88c5a3e33c1adff5 (patch)
tree03c2847e204de1ee2f6dd48dfa00f01e20715787
parentd7f5ac061c7aaff8d6523404b137909876c4c8dd (diff)
downloadorg-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.el4
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)))))