From cbc5aafe190032da83e6797e1081dae452d3d45c Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 11 Jan 2012 14:44:28 +0100 Subject: [PATCH] org-e-latex: Apply signature modification of functions * EXPERIMENTAL/org-e-latex.el (org-e-latex-example-block, org-e-latex-src-block): Apply changes to `org-export-handle-code'. (org-e-latex-link): Use new function `org-export-resolve-coderef'. --- EXPERIMENTAL/org-e-latex.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/EXPERIMENTAL/org-e-latex.el b/EXPERIMENTAL/org-e-latex.el index 9c9bd4ee9..cfb9e9f23 100644 --- a/EXPERIMENTAL/org-e-latex.el +++ b/EXPERIMENTAL/org-e-latex.el @@ -893,8 +893,7 @@ contextual information." "Transcode a EXAMPLE-BLOCK element from Org to LaTeX. CONTENTS is nil. INFO is a plist holding contextual information." (let* ((options (or (org-element-get-property :options example-block) "")) - (value (org-export-handle-code - (org-element-get-property :value example-block) options info))) + (value (org-export-handle-code example-block info))) (org-e-latex--wrap-label example-block (format "\\begin{verbatim}\n%s\\end{verbatim}" value)))) @@ -1371,7 +1370,7 @@ INFO is a plist holding contextual information. See ;; equivalent line number. ((string= type "coderef") (format (org-export-get-coderef-format path (or desc "")) - (cdr (assoc path (plist-get info :code-refs))))) + (org-export-resolve-coderef path info))) ;; Link type is handled by a special function. ((functionp (setq protocol (nth 2 (assoc type org-link-protocols)))) (funcall protocol (org-link-unescape path) desc 'latex)) @@ -1553,10 +1552,7 @@ holding contextual information." CONTENTS holds the contents of the item. INFO is a plist holding contextual information." (let* ((lang (org-element-get-property :language src-block)) - (code (org-export-handle-code - (org-element-get-property :value src-block) - (org-element-get-property :switches src-block) - info lang)) + (code (org-export-handle-code src-block info)) (caption (org-element-get-property :caption src-block)) (label (org-element-get-property :name src-block)) (custom-env (and lang -- 2.11.4.GIT