From 9dbeaa278d3581d03dba177eb79a3ad43b600fa5 Mon Sep 17 00:00:00 2001 From: Rasmus Date: Wed, 25 May 2016 19:48:51 +0200 Subject: [PATCH] ox-latex: Fix bug introduced in 888ebfdeaf373012c7 * lisp/ox-latex.el (org-latex-footnote-reference): Handle anonymous footnotes. Reported-by: Nicolas Goaziou --- lisp/ox-latex.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index 2c1163b4d..4a08e9f6a 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -1841,13 +1841,14 @@ CONTENTS is nil. INFO is a plist holding contextual information." (format "\\footnote{%s%s}" (org-trim (org-export-data def info)) ;; Only insert a \label if there exist another ;; reference to def. - (or (org-element-map (plist-get info :parse-tree) 'footnote-reference - (lambda (f) - (and (not (eq f footnote-reference)) - (equal (org-element-property :label f) label) - (org-trim (org-latex--label def info t t)))) - info t) - "")) + (cond ((not label) "") + ((org-element-map (plist-get info :parse-tree) 'footnote-reference + (lambda (f) + (and (not (eq f footnote-reference)) + (equal (org-element-property :label f) label) + (org-trim (org-latex--label def info t t)))) + info t)) + (t ""))) ;; Retrieve all footnote references within the footnote and ;; add their definition after it, since LaTeX doesn't support ;; them inside. -- 2.11.4.GIT