tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox: Small refactoring 

* lisp/ox.el (org-export-collect-footnote-definitions): Small
  refactoring.
This commit is contained in:
Nicolas Goaziou 2015-02-27 12:06:37 +01:00
parent 5738086a6b
commit 1c5db20860
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ox.el
View File

@ -3620,11 +3620,10 @@ for inlined footnotes. Unreferenced definitions are ignored."
(org-export--footnote-reference-map
(lambda (f)
;; Collect footnote number, label and definition.
(let ((l (org-element-property :label f))
(d (org-export-get-footnote-definition f info)))
(let ((l (org-element-property :label f)))
(unless (and l (member l labels))
(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))))
(or data (plist-get info :parse-tree)) info body-first)
(nreverse alist)))