From fc895b95748b626fad97991105513401f2286edd Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 7 Jan 2012 14:30:41 +0100 Subject: [PATCH] org-e-latex: Apply changes to `:genealogy' * EXPERIMENTAL/org-e-latex.el (org-e-latex-item, org-e-latex-link--inline-image): Apply changes to `:genealogy'. --- EXPERIMENTAL/org-e-latex.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/EXPERIMENTAL/org-e-latex.el b/EXPERIMENTAL/org-e-latex.el index 99ff52efd..31aa0bf49 100644 --- a/EXPERIMENTAL/org-e-latex.el +++ b/EXPERIMENTAL/org-e-latex.el @@ -1169,7 +1169,10 @@ holding contextual information." "Transcode an ITEM element from Org to LaTeX. CONTENTS holds the contents of the item. INFO is a plist holding contextual information." - (let* ((level (plist-get (plist-get info :parent-properties) :level)) + ;; Grab `:level' from plain-list properties, which is always the + ;; first element above current item. + (let* ((level (org-element-get-property + :level (car (plist-get info :genealogy)))) (counter (let ((count (org-element-get-property :counter item))) (and count (< level 4) @@ -1248,7 +1251,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (defun org-e-latex-link--inline-image (path info) "Return LaTeX code for an image at PATH. INFO is a plist containing export options." - (let* ((parent-props (plist-get info :parent-properties)) + (let* ((parent-props (nth 1 (car (plist-get info :genealogy)))) (caption (org-e-latex--caption/label-string (plist-get parent-props :caption) (plist-get parent-props :name)