forked from mirrors/org-mode
ox: Small refactoring
* lisp/ox.el (org-export-collect-footnote-definitions): Small refactoring.
This commit is contained in:
parent
5738086a6b
commit
1c5db20860
|
@ -3620,11 +3620,10 @@ for inlined footnotes. Unreferenced definitions are ignored."
|
||||||
(org-export--footnote-reference-map
|
(org-export--footnote-reference-map
|
||||||
(lambda (f)
|
(lambda (f)
|
||||||
;; Collect footnote number, label and definition.
|
;; Collect footnote number, label and definition.
|
||||||
(let ((l (org-element-property :label f))
|
(let ((l (org-element-property :label f)))
|
||||||
(d (org-export-get-footnote-definition f info)))
|
|
||||||
(unless (and l (member l labels))
|
(unless (and l (member l labels))
|
||||||
(incf n)
|
(incf n)
|
||||||
(push (list n l d) alist))
|
(push (list n l (org-export-get-footnote-definition f info)) alist))
|
||||||
(when l (push l labels))))
|
(when l (push l labels))))
|
||||||
(or data (plist-get info :parse-tree)) info body-first)
|
(or data (plist-get info :parse-tree)) info body-first)
|
||||||
(nreverse alist)))
|
(nreverse alist)))
|
||||||
|
|
Loading…
Reference in New Issue