emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals-release/org 4c01eba265: org-texinfo-supports-math-p: Fi


From: ELPA Syncer
Subject: [elpa] externals-release/org 4c01eba265: org-texinfo-supports-math-p: Fix CI test failures
Date: Sun, 19 Mar 2023 09:59:18 -0400 (EDT)

branch: externals-release/org
commit 4c01eba265edfb910e926c5559aca5bf7d7a3650
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-texinfo-supports-math-p: Fix CI test failures
    
    * lisp/ox-texinfo.el (org-texinfo-supports-math-p): Consider
    compilation error as indication that math is not supported.  texinfo
    compiler throws "unknown command `displaymath'" error in such case,
    causing `org-texinfo-compile' to err as well.
    
    Fixes CI tests failures when testing with Texinfo versions with no
    math support.
    
    https://builds.sr.ht/~bzg/job/959487
---
 lisp/ox-texinfo.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el
index 4ff482cc3f..f822f3d110 100644
--- a/lisp/ox-texinfo.el
+++ b/lisp/ox-texinfo.el
@@ -2037,10 +2037,13 @@ Once computed, the results remain cached."
                                    "\n")))
               (with-temp-file input-file
                 (insert input-content))
-              (let* ((output-file (org-texinfo-compile input-file))
-                     (output-content (with-temp-buffer
-                                       (insert-file-contents output-file)
-                                       (buffer-string))))
+              (when-let* ((output-file
+                           ;; If compilation fails, consider math to
+                           ;; be not supported.
+                           (ignore-errors (org-texinfo-compile input-file)))
+                          (output-content (with-temp-buffer
+                                            (insert-file-contents output-file)
+                                            (buffer-string))))
                 (let ((result (string-match-p (regexp-quote math-example)
                                               output-content)))
                   (delete-file input-file)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]