diff options
author | Rasmus <rasmus@gmx.us> | 2016-05-23 08:45:54 +0200 |
---|---|---|
committer | Rasmus <rasmus@gmx.us> | 2016-05-23 08:45:54 +0200 |
commit | 8c968a9697580361ff19159bab60df132ab1bbd5 (patch) | |
tree | 8ab8a0c5e9b0c584c882fa855a430890f66b0927 | |
parent | d07fafed4af9d22044870ae909f0bb82b1412eb6 (diff) | |
download | org-mode-8c968a9697580361ff19159bab60df132ab1bbd5.tar.gz |
ox-latex: Detect languages irrespective of case
* ox-latex.el (org-latex-guess-babel-language):
* ox-latex.el (org-latex--format-spec): Detect languages correctly
irrespective of case.
-rw-r--r-- | lisp/ox-latex.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index 49d8427..85e8ba5 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -1280,8 +1280,8 @@ Return the new header." header (let ((options (save-match-data (org-split-string (match-string 1 header) ",[ \t]*"))) - (language (cdr (assoc language-code - org-latex-babel-language-alist)))) + (language (cdr (assoc-string language-code + org-latex-babel-language-alist t)))) ;; If LANGUAGE is already loaded, return header without AUTO. ;; Otherwise, replace AUTO with language or append language if ;; AUTO is not present. @@ -1460,7 +1460,7 @@ 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 lang org-latex-babel-language-alist)) + (or (cdr (assoc-string lang org-latex-babel-language-alist t)) lang)))) `((?a . ,(org-export-data (plist-get info :author) info)) (?t . ,(org-export-data (plist-get info :title) info)) |