From 8c968a9697580361ff19159bab60df132ab1bbd5 Mon Sep 17 00:00:00 2001 From: Rasmus Date: Mon, 23 May 2016 08:45:54 +0200 Subject: [PATCH] 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. --- lisp/ox-latex.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index 49d842747..85e8ba55b 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)) -- 2.11.4.GIT