summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-02-27 12:06:37 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-02-27 12:06:37 +0100
commit1c5db20860625f3dd55e31fd8ebe687cd641243b (patch)
treef1997ecb35e5802d0021d25db4885f24278651e1
parent5738086a6b81adacc328f18712994f4316af7426 (diff)
downloadorg-mode-1c5db20860625f3dd55e31fd8ebe687cd641243b.tar.gz
ox: Small refactoring
* lisp/ox.el (org-export-collect-footnote-definitions): Small refactoring.
-rw-r--r--lisp/ox.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/ox.el b/lisp/ox.el
index de57ad0..0c7728f 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -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)))