Browse Source

ox: Small refactoring

* lisp/ox.el (org-export-collect-footnote-definitions): Small
  refactoring.
Nicolas Goaziou 2 years ago
parent
commit
1c5db20860
1 changed files with 2 additions and 3 deletions
  1. 2 3
      lisp/ox.el

+ 2 - 3
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)))