Commit 5c83fdbb authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

* lyskom-rest.el (lyskom-is-loaded): Handle the case when

kom-default-language is a list.
parent 3368319f
2003-08-13 Ulrik Haugen <qha@lysator.liu.se>
* lyskom-rest.el (lyskom-is-loaded): Handle the case when
kom-default-language is a list.
2003-08-13 David Byers <byers@lysator.liu.se> 2003-08-13 David Byers <byers@lysator.liu.se>
Work on bug 1075: Work on bug 1075:
......
...@@ -4218,12 +4218,16 @@ One parameter - the prompt string." ...@@ -4218,12 +4218,16 @@ One parameter - the prompt string."
nil nil
;; Set up default language ;; Set up default language
(let ((languages (list kom-default-language (let ((languages (append
(if (listp kom-default-language)
kom-default-language
(list kom-default-language))
(list
(lyskom-language-from-environment "KOMLANGUAGE") (lyskom-language-from-environment "KOMLANGUAGE")
(lyskom-language-from-environment "LC_ALL") (lyskom-language-from-environment "LC_ALL")
(lyskom-language-from-environment "LC_MESSAGES") (lyskom-language-from-environment "LC_MESSAGES")
(lyskom-language-from-environment "LANG") (lyskom-language-from-environment "LANG")
(car (car (last lyskom-languages)))))) (car (car (last lyskom-languages)))))))
(lyskom-traverse lang languages (lyskom-traverse lang languages
(when (assq lang lyskom-languages) (when (assq lang lyskom-languages)
(setq kom-default-language lang (setq kom-default-language lang
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment