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