org-latex: properly get definition of footnotes during export

* lisp/org-latex.el (org-export-latex-preprocess): rely on
  `org-export-footnotes-markers' to retreive definition of the current
  footnote during export.
This commit is contained in:
Nicolas Goaziou 2011-06-26 18:46:08 +02:00
parent 06a4c2c8d0
commit a9e0449f23
1 changed files with 3 additions and 1 deletions

View File

@ -2429,7 +2429,9 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
(while (setq ref (org-footnote-get-next-reference))
(let* ((beg (nth 1 ref))
(lbl (car ref))
(def (or (nth 3 (org-footnote-get-definition lbl)) "")))
(def (nth 1 (assoc (string-to-number lbl)
(mapcar (lambda (e) (cdr e))
org-export-footnotes-markers)))))
;; Fix body for footnotes ending on a link or a list and
;; remove definition from buffer.
(setq def