diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-02-27 12:06:37 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-02-27 12:06:37 +0100 |
commit | 1c5db20860625f3dd55e31fd8ebe687cd641243b (patch) | |
tree | f1997ecb35e5802d0021d25db4885f24278651e1 | |
parent | 5738086a6b81adacc328f18712994f4316af7426 (diff) | |
download | org-mode-1c5db20860625f3dd55e31fd8ebe687cd641243b.tar.gz |
ox: Small refactoring
* lisp/ox.el (org-export-collect-footnote-definitions): Small
refactoring.
-rw-r--r-- | lisp/ox.el | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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))) |