From 1c5db20860625f3dd55e31fd8ebe687cd641243b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 27 Feb 2015 12:06:37 +0100 Subject: [PATCH] ox: Small refactoring * lisp/ox.el (org-export-collect-footnote-definitions): Small refactoring. --- lisp/ox.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index de57ad05c..0c7728f44 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))) -- 2.11.4.GIT