Re: Better language detection for tutorial (was: set-locale-environement: strange default detection)

[Andreas Schwab]

Sascha Wilde <address@hidden> 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.

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

Andreas.

-- 
Andreas Schwab, SuSE Labs, address@hidden
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."