ox-latex: Remove unused argument

* lisp/ox-latex.el (org-latex-template,
org-latex-generate-engraved-preamble): The second argument of
`org-latex-generate-engraved-preamble' is only ever t, so there's not
much point in having it.

* lisp/ox-beamer.el (org-beamer-template): Update to not call
`org-latex-generate-engraved-preamble' with the second argument.
This commit is contained in:
TEC 2022-07-20 23:33:37 +08:00
parent 1061db94ac
commit 795783d644
No known key found for this signature in database
2 changed files with 33 additions and 38 deletions

View File

@ -875,7 +875,7 @@ holding export options."
(org-element-map (plist-get info :parse-tree)
'(src-block inline-src-block) #'identity
info t))
(org-latex-generate-engraved-preamble info t))
(org-latex-generate-engraved-preamble info))
;; Document start.
"\\begin{document}\n\n"
;; Title command.

View File

@ -1308,7 +1308,6 @@ which are given by `org-latex-engraved-preamble' and
"plaintop" "plain"))
t t
engraved-preamble)))
(if syntax-colours-p
(concat
"\n% Setup for code blocks [1/2]\n\n"
engraved-preamble
@ -1339,11 +1338,7 @@ which are given by `org-latex-engraved-preamble' and
(funcall gen-theme-spec engraved-theme))
(message "Cannot engrave source blocks. Consider installing `engrave-faces'.")
"% WARNING syntax highlighting unavailable as engrave-faces-latex was missing.\n")
"\n")
(concat
"\n% Setup for code blocks\n\n"
engraved-preamble
"\n"))))
"\n")))
;;;; Compilation
@ -1999,7 +1994,7 @@ holding export options."
(org-element-map (plist-get info :parse-tree)
'(src-block inline-src-block) #'identity
info t))
(org-latex-generate-engraved-preamble info t))
(org-latex-generate-engraved-preamble info))
;; Document start.
"\\begin{document}\n\n"
;; Title command.