Re: Better language detection for tutorial

[David Kastrup <dak@gnu.org>]

Andreas Schwab <schwab@suse.de> writes:

> Sascha Wilde <wilde@sha-bang.de> writes:
>
>> + (defun tutorial-get-language ()
>> +   "Use LC_ALL, LC_MESSAGES, LANG in turn to determine language to use.
>> + This is more reliable then current-language-environment, which is not
>                           than `...'
>> + intended to chose the language used for messages and documentation."
>                 choose
>
>> +   (let (locale (vars '("LC_ALL" "LC_MESSAGES" "LANG")))
>> +     (while (and vars
>> + 		(= 0 (length locale))) ; nil or empty string
>                  zerop or (= (length locale) 0)
>
>> +       (setq locale (getenv (pop vars))))
>
> pop is a macro in cl.

pop is a Lisp macro in `subr.el'.
(pop LISTNAME)

Return the first element of LISTNAME's value, and remove it from the list.
LISTNAME must be a symbol whose value is a list.
If the value is nil, `pop' returns nil but does not actually
change the list.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum