diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-06-24 17:24:42 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-06-24 17:24:42 +0200 |
commit | b4fb00a21a8a334066deb0fb9196568b54f4ef12 (patch) | |
tree | 67c9e9dff85c5074b6aca1db805028126bdc1d74 | |
parent | f9ae004aca12f2a6439587434a90f4560309a38e (diff) | |
download | org-mode-b4fb00a21a8a334066deb0fb9196568b54f4ef12.tar.gz |
ox-latex: Remove unused function
* lisp/ox-latex.el (org-latex--get-footnote-counter): Remove function.
This function is not necessary anymore since
7b8a79326fae64f40b20e3a50c02a5a40f1c0b62.
-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 5bb746d..55553cf 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -1266,55 +1266,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. |