From f97877a069717a3f8a55c2f1576e00d8daf3b889 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Fri, 1 Sep 2023 13:42:27 +0300 Subject: [PATCH] ox-latex: Prefer :latex-src-block-backend INFO property over variable * lisp/ox-beamer.el (org-beamer-template): * lisp/ox-latex.el (org-latex-template): Reuse INFO plist to retrieve src backend. Direct usage can break user settings where INFO channel is expected to be modified and have effect. --- lisp/ox-beamer.el | 2 +- lisp/ox-latex.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index 2f1199499..1f7700d8f 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -873,7 +873,7 @@ holding export options." (and (stringp template) (format-spec template (org-latex--format-spec info)))) ;; engrave-faces-latex preamble - (when (and (eq org-latex-src-block-backend 'engraved) + (when (and (eq (plist-get info :latex-src-block-backend) 'engraved) (org-element-map (plist-get info :parse-tree) '(src-block inline-src-block) #'identity info t)) diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index bb1bf4982..241ef603a 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -2031,7 +2031,7 @@ holding export options." (and (stringp template) (format-spec template spec))) ;; engrave-faces-latex preamble - (when (and (eq org-latex-src-block-backend 'engraved) + (when (and (eq (plist-get info :latex-src-block-backend) 'engraved) (org-element-map (plist-get info :parse-tree) '(src-block inline-src-block) #'identity info t))