[elpa] externals/org fcf63fb31e 2/3: lisp/ox-latex.el: fix `org-latex-guess-babel-language'

[ELPA Syncer]

branch: externals/org
commit fcf63fb31e176264c6b9641f4aee7e74beae1e3a
Author: Juan Manuel Macias <maciaschain@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/ox-latex.el: fix `org-latex-guess-babel-language'
    
    * (org-latex-guess-babel-language): If the user puts a string other
    than AUTO as an argument to `\babelprovide', it gives an error when
    exporting. For example:
    
    `#+LaTeX_Header: \babelprovide[onchar=ids,import]{hebrew}'
---
 lisp/ox-latex.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index b5f81fe531..46a348a68f 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -1669,12 +1669,13 @@ Return the new header."
     (if (not (string-match "\\\\babelprovide\\[.*\\]{\\(.+\\)}" header))
        header
       (let ((prov (match-string 1 header)))
-       (when (equal "AUTO" prov)
-         (replace-regexp-in-string (format
-                                    "\\(\\\\babelprovide\\[.*\\]\\)\\({\\)%s}" 
prov)
-                                   (format "\\1\\2%s}"
-                                           (or language language-ini-only))
-                                   header t))))))
+       (if (equal "AUTO" prov)
+           (replace-regexp-in-string (format
+                                      
"\\(\\\\babelprovide\\[.*\\]\\)\\({\\)%s}" prov)
+                                     (format "\\1\\2%s}"
+                                             (or language language-ini-only))
+                                     header t)
+         header)))))
 
 (defun org-latex-guess-polyglossia-language (header info)
   "Set the Polyglossia language according to the LANGUAGE keyword.