diff options
author | Rudolf Adamkovic <rudolf@adamkovic.org> | 2024-08-27 11:10:56 +0200 |
---|---|---|
committer | Ihor Radchenko <yantar92@posteo.net> | 2024-09-22 18:06:22 +0200 |
commit | fac0787e1659b93810bff320a87d81eda98d03a9 (patch) | |
tree | e0f7366c2d6bdc0b144cfbea2cfe28510ff3265e | |
parent | d8fc26aefa70a0fcbbbbbb73ef09f4b6b0b600a8 (diff) |
ox-texinfo: Check for math support without warnings and quietly
* lisp/ox-texinfo.el (org-texinfo-supports-math-p): Two
improvements: (1) Fix the incorrect `.info' extension used for the
temporary `.texi' file. This removes the warning "makeinfo: warning:
input file testXXX.info; did you mean testXXX.texi?" (2) Suppress
output when compiling the "Is math supported?" test file. This is to
avoid user confusion, as the user cares about their Texinfo file, not
implementation details. This removes the message "Processing Texinfo
file /var/.../testXXX.info...".
-rw-r--r-- | lisp/ox-texinfo.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 6adee9fca..b11808ed5 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -2037,9 +2037,12 @@ 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")) + (let* ((input-file (make-temp-file "test" nil ".texi")) + (output-file + (file-name-with-extension + (file-name-sans-extension input-file) "info")) (input-content (string-join - (list (format "@setfilename %s" input-file) + (list (format "@setfilename %s" output-file) "@node Top" "@displaymath" math-example @@ -2050,7 +2053,8 @@ Once computed, the results remain cached." (when-let* ((output-file ;; If compilation fails, consider math to ;; be not supported. - (ignore-errors (org-texinfo-compile input-file))) + (ignore-errors (let ((inhibit-message t)) + (org-texinfo-compile input-file)))) (output-content (with-temp-buffer (insert-file-contents output-file) (buffer-string)))) |