Andreas Schwab <schwab@suse.de> wrote:
> 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

Thanks, I changed that...

>> +   (let (locale (vars '("LC_ALL" "LC_MESSAGES" "LANG")))
>> +     (while (and vars
>> + 		(= 0 (length locale))) ; nil or empty string
>                  zerop or (= (length locale) 0)

I copied this part of the code from `mule-cmds.el',
set-locale-environment.  I intentionally didn't change the code, 
but I agree that your version is better style, so I changed that,
too.

>> +       (setq locale (getenv (pop vars))))
>
> pop is a macro in cl.

See Davids mail on this.

>> +     (if (< 0 (length locale))
>             (> (length locale) 0)

Originally written according to the code from `mule-cmds.el', changed.

New patch: