From c15209c923a1c83ac2d678bb87bbe3ddd241a949 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 8 Jan 2012 23:42:47 +0100 Subject: [PATCH] org-e-latex: Apply removal of :previous-element and :previous-object properties * EXPERIMENTAL/org-e-latex.el (org-e-latex-footnote-reference, org-e-latex-headline): Use new functions for retrieving previous element. --- EXPERIMENTAL/org-e-latex.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/EXPERIMENTAL/org-e-latex.el b/EXPERIMENTAL/org-e-latex.el index 6f7538f8e..9c9bd4ee9 100644 --- a/EXPERIMENTAL/org-e-latex.el +++ b/EXPERIMENTAL/org-e-latex.el @@ -941,8 +941,9 @@ CONTENTS is nil. INFO is a plist holding contextual information." CONTENTS is nil. INFO is a plist holding contextual information." (concat ;; Insert separator between two footnotes in a row. - (when (eq (plist-get info :previous-object) 'footnote-reference) - org-e-latex-footnote-separator) + (let ((prev (org-export-get-previous-element footnote-reference info))) + (when (and (listp prev) (eq (car prev) 'footnote-reference)) + org-e-latex-footnote-separator)) ;; Use \footnotemark if the footnote has already been defined. ;; Otherwise, define it with \footnote command. (cond @@ -974,8 +975,7 @@ holding contextual information." (let* ((class (plist-get info :latex-class)) (numberedp (plist-get info :section-numbers)) ;; Get level relative to current parsed data. - (level (+ (org-element-get-property :level headline) - (plist-get info :headline-offset))) + (level (org-export-get-relative-level headline info)) (class-sectionning (assoc class org-e-latex-classes)) ;; Section formatting will set two placeholders: one for the ;; title and the other for the contents.