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>
Work on bug 1075:
......
......@@ -4218,12 +4218,16 @@ One parameter - the prompt string."
nil
;; 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 "LC_ALL")
(lyskom-language-from-environment "LC_MESSAGES")
(lyskom-language-from-environment "LANG")
(car (car (last lyskom-languages))))))
(car (car (last lyskom-languages)))))))
(lyskom-traverse lang languages
(when (assq lang lyskom-languages)
(setq kom-default-language lang
......
Markdown is supported
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