|
@@ -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)))
|