diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-06-24 17:25:23 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-06-24 17:25:23 +0200 |
commit | d3ef263895d7bce679bb8cd12992fdc42a4846a2 (patch) | |
tree | cca078899e442ab12725c3fe162e8ad0557133b3 | |
parent | f3955d5367bd44e98824e3a5bd4b36e06483f4c2 (diff) | |
parent | b4fb00a21a8a334066deb0fb9196568b54f4ef12 (diff) | |
download | org-mode-d3ef263895d7bce679bb8cd12992fdc42a4846a2.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/ox-latex.el | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index f2c6261..09928a4 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -1270,55 +1270,6 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;;;; Footnote Reference -;; -;; Footnote reference export is handled by -;; `org-latex-footnote-reference'. -;; -;; Internally, `org-latex--get-footnote-counter' is used to restore -;; the value of the LaTeX "footnote" counter after a jump due to -;; a reference to an already defined footnote. It is only needed in -;; item tags since the optional argument to \footnotemark is not -;; allowed there. - -(defun org-latex--get-footnote-counter (footnote-reference info) - "Return \"footnote\" counter before FOOTNOTE-REFERENCE is encountered. -INFO is a plist used as a communication channel." - ;; Find original counter value by counting number of footnote - ;; references appearing for the first time before the current - ;; footnote reference. - (let* ((label (org-element-property :label footnote-reference)) - seen-refs - search-ref ; For byte-compiler. - (search-ref - (function - (lambda (data) - ;; Search footnote references through DATA, filling - ;; SEEN-REFS along the way. - (org-element-map data 'footnote-reference - (lambda (fn) - (let ((fn-lbl (org-element-property :label fn))) - (cond - ;; Anonymous footnote match: return number. - ((eq fn footnote-reference) (length seen-refs)) - ;; Anonymous footnote: it's always a new one. - ;; Also, be sure to return nil from the `cond' so - ;; `first-match' doesn't get us out of the loop. - ((not fn-lbl) (push 'inline seen-refs) nil) - ;; Label not seen so far: add it so SEEN-REFS. - ;; - ;; Also search for subsequent references in - ;; footnote definition so numbering follows - ;; reading logic. Note that we don't care about - ;; inline definitions, since `org-element-map' - ;; already traverses them at the right time. - ((not (member fn-lbl seen-refs)) - (push fn-lbl seen-refs) - (funcall search-ref - (org-export-get-footnote-definition fn info)))))) - ;; Don't enter footnote definitions since it will - ;; happen when their first reference is found. - info 'first-match 'footnote-definition))))) - (funcall search-ref (plist-get info :parse-tree)))) (defun org-latex-footnote-reference (footnote-reference contents info) "Transcode a FOOTNOTE-REFERENCE element from Org to LaTeX. |