diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-08 08:48:40 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-08 08:48:40 +0200 |
commit | 31cf5b2a9af1be370a3720b5c6fc3bd06428004d (patch) | |
tree | 5519f62f6e2a3b1eeb690f9b34392794006b5da5 | |
parent | c4b2ac861f617d8ee20a0a68b1f02e23bbc9f1f1 (diff) | |
download | org-mode-31cf5b2a9af1be370a3720b5c6fc3bd06428004d.tar.gz |
ox-publish: Add missing `file-truename'
* lisp/ox-publish.el (org-publish--expand-file-name): Add missing
`file-truename'.
-rw-r--r-- | lisp/ox-publish.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index 6847980..a41f825 100644 --- a/lisp/ox-publish.el +++ b/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. |