From 366dc4e369cab2009b55e2de81d9190871505d6e Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 6 Sep 2015 22:14:47 +0200 Subject: [PATCH] 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]. --- lisp/ox.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index 6dfed8d1a..c3b29b661 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -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))) -- 2.11.4.GIT