diff options
author | Kyle Meyer <kyle@kyleam.com> | 2023-02-20 00:41:31 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2023-02-20 00:41:31 -0500 |
commit | fc4bfa76db958f48daed7c5812921b1653c31175 (patch) | |
tree | 4068b712418c989c4023e97b7576daea9c7c6802 /lisp/org/ox-texinfo.el | |
parent | afbce8bb46798518998f517cbacdbd65d4531a3f (diff) | |
download | emacs-fc4bfa76db958f48daed7c5812921b1653c31175.tar.gz |
Update to Org 9.6.1-34-geea8da
Diffstat (limited to 'lisp/org/ox-texinfo.el')
-rw-r--r-- | lisp/org/ox-texinfo.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/org/ox-texinfo.el b/lisp/org/ox-texinfo.el index 8e3a0456299..4ff482cc3f5 100644 --- a/lisp/org/ox-texinfo.el +++ b/lisp/org/ox-texinfo.el @@ -32,6 +32,8 @@ (require 'cl-lib) (require 'ox) +(eval-when-compile (require 'subr-x)) + (defvar orgtbl-exp-regexp) (defvar org-texinfo-supports-math--cache) @@ -2025,12 +2027,14 @@ Once computed, the results remain cached." (unless (boundp 'org-texinfo-supports-math--cache) (setq org-texinfo-supports-math--cache (let ((math-example "1 + 1 = 2")) - (let* ((input-file - (make-temp-file "test" nil ".info")) - (input-content - (concat (format "@setfilename %s" input-file) "\n" - "@node Top" "\n" - (format "@displaymath{%s}" math-example) "\n"))) + (let* ((input-file (make-temp-file "test" nil ".info")) + (input-content (string-join + (list (format "@setfilename %s" input-file) + "@node Top" + "@displaymath" + math-example + "@end displaymath") + "\n"))) (with-temp-file input-file (insert input-content)) (let* ((output-file (org-texinfo-compile input-file)) |