summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2013-06-24 15:24:42 (GMT)
committer Nicolas Goaziou <n.goaziou@gmail.com>2013-06-24 15:24:42 (GMT)
commitb4fb00a21a8a334066deb0fb9196568b54f4ef12 (patch)
tree67c9e9dff85c5074b6aca1db805028126bdc1d74
parentf9ae004aca12f2a6439587434a90f4560309a38e (diff)
downloadorg-mode-b4fb00a21a8a334066deb0fb9196568b54f4ef12.zip
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.el49
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.