瀏覽代碼

ox-publish: Add missing `file-truename'

* lisp/ox-publish.el (org-publish--expand-file-name): Add missing
  `file-truename'.
Nicolas Goaziou 8 年之前
父節點
當前提交
31cf5b2a9a
共有 1 個文件被更改,包括 5 次插入3 次删除
  1. 5 3
      lisp/ox-publish.el

+ 5 - 3
lisp/ox-publish.el

@@ -407,9 +407,11 @@ definition."
 (defun org-publish--expand-file-name (file project)
   "Return full file name for FILE in PROJECT.
 When FILE is a relative file name, it is expanded according to
-project base directory."
-  (if (file-name-absolute-p file) file
-    (expand-file-name file (org-publish-property :base-directory project))))
+project base directory.  Always return the true name of the file,
+ignoring symlinks."
+  (file-truename
+   (if (file-name-absolute-p file) file
+     (expand-file-name file (org-publish-property :base-directory project)))))
 
 (defun org-publish-expand-projects (projects-alist)
   "Expand projects in PROJECTS-ALIST.