Переглянути джерело

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].
Nicolas Goaziou 9 роки тому
батько
коміт
366dc4e369
1 змінених файлів з 4 додано та 4 видалено
  1. 4 4
      lisp/ox.el

+ 4 - 4
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)))