[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org d37c0ee5fa 2/2: lisp/ox-latex.el: Remove obsolete B
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org d37c0ee5fa 2/2: lisp/ox-latex.el: Remove obsolete Babel and Polyglossia alists |
Date: |
Thu, 28 Jul 2022 08:57:44 -0400 (EDT) |
branch: externals/org
commit d37c0ee5fa7dc4be4bbe3aa9b6f4e79d4b1e638d
Author: Juan Manuel Macias <maciaschain@posteo.net>
Commit: Ihor Radchenko <yantar92@gmail.com>
lisp/ox-latex.el: Remove obsolete Babel and Polyglossia alists
* (org-latex--format-spec): The new variable is now
`org-latex-language-alist'.
---
lisp/ox-latex.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index 121a3f84c6..1ed9889178 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -1861,8 +1861,11 @@ INFO is a plist used as a communication channel."
"Create a format-spec for document meta-data.
INFO is a plist used as a communication channel."
(let ((language (let ((lang (plist-get info :language)))
- (or (cdr (assoc-string lang org-latex-babel-language-alist
t))
- (nth 1 (assoc-string lang
org-latex-polyglossia-language-alist t))
+ ;; The second element in
+ ;; `org-latex-language-alist' is always the
+ ;; language name, regardless of the type of the
+ ;; alist entry.
+ (or (nth 1 (assoc-string lang org-latex-language-alist t))
lang))))
`((?a . ,(org-export-data (plist-get info :author) info))
(?t . ,(org-export-data (plist-get info :title) info))