ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ox: Change internal tag for included footnotes 

* lisp/ox.el (org-export--update-footnote-label):
(org-export--prepare-file-contents): Use a new naming scheme for
internal footnotes, less likely to introduce collisions.

The previous one introduced a collision between [1] and [fn:1].
This commit is contained in:
Nicolas Goaziou 2015-09-06 22:14:47 +02:00
parent a7394224aa
commit 366dc4e369
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ox.el
View File

@ -3356,9 +3356,9 @@ Return the new label."
(goto-char (1+ ref-begin))
(buffer-substring (point)
(progn
(if digit-label (insert (format "fn:%d-" id))
(if digit-label (insert (format "fn:--%d-" id))
(forward-char 3)
(insert (format "%d-" id)))
(insert (format "-%d-" id)))
(1- (search-forward "]")))))
(defun org-export--prepare-file-contents
@ -3463,8 +3463,8 @@ the included document."
;; the new label, which is only used for footnotes
;; outsides LINES.
(when label
;; If label is akin to [1] convert it to [fn:ID-1].
;; Otherwise add "ID-" after "fn:".
;; If label is akin to [1] convert it to
;; [fn:--ID-1]. Otherwise add "-ID-" after "fn:".
(let ((new-label (org-export--update-footnote-label
(org-element-property :begin reference)
digit-label id)))