ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ox-beamer.el
View File

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

9
lisp/ox-latex.el
View File

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