Browse Source

Merge branch 'maint'

Nicolas Goaziou 1 year ago
parent
commit
bbcf2f939c
3 changed files with 6 additions and 7 deletions
  1. 4 4
      lisp/ox-publish.el
  2. 1 2
      testing/examples/pub-symlink/link.org
  3. 1 1
      testing/examples/pub/link

+ 4 - 4
lisp/ox-publish.el

@@ -575,7 +575,7 @@ Return output file name."
 	       `(:crossrefs
 		 ,(org-publish-cache-get-file-property
 		   ;; Normalize file names in cache.
-		   (expand-file-name filename) :crossrefs nil t)
+		   (file-truename filename) :crossrefs nil t)
 		 :filter-final-output
 		 (org-publish--store-crossrefs
 		  org-publish-collect-index
@@ -1027,7 +1027,7 @@ PARENT is a reference to the headline, if any, containing the
 original index keyword.  When non-nil, this reference is a cons
 cell.  Its CAR is a symbol among `id', `custom-id' and `name' and
 its CDR is a string."
-  (let ((file (expand-file-name (plist-get info :input-file))))
+  (let ((file (file-truename (plist-get info :input-file))))
     (org-publish-cache-set-file-property
      file :index
      (delete-dups
@@ -1136,7 +1136,7 @@ a plist.
 This function is meant to be used as a final output filter.  See
 `org-publish-org-to'."
   (org-publish-cache-set-file-property
-   (expand-file-name (plist-get info :input-file))
+   (file-truename (plist-get info :input-file))
    :crossrefs
    ;; Update `:crossrefs' so as to remove unused references and search
    ;; cells.  Actually used references are extracted from
@@ -1181,7 +1181,7 @@ references with `org-export-get-reference'."
 	       file)
       "MissingReference"))
    (t
-    (let* ((filename (expand-file-name file))
+    (let* ((filename (file-truename file))
 	   (crossrefs
 	    (org-publish-cache-get-file-property filename :crossrefs nil t))
 	   (cells

+ 1 - 2
testing/examples/pub-symlink/link.org

@@ -1,2 +1 @@
-# Time-stamp: <2018-02-13 10:12:03 ngz>
-symlink
+Symlink

+ 1 - 1
testing/examples/pub/link

@@ -1 +1 @@
-/home/ngz/dev/org-mode/testing/examples/pub-symlink
+../pub-symlink