소스 검색

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