procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(set-locale-environment): Ignore

Browse source 
empty values of environment variables.
This commit is contained in:
Dave Love 2003-01-05 00:38:05 +00:00
parent 56cfa2440e
commit db6bd804ad
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/international/mule-cmds.el
View file

@ -2187,8 +2187,9 @@ See also `locale-charset-language-names', `locale-language-names',
;; Use the first of these three environment variables
;; that has a nonempty value.
(let ((vars '("LC_ALL" "LC_CTYPE" "LANG")))
(while (and vars (not (setq locale (getenv (car vars)))))
(setq vars (cdr vars)))))
(while (and vars
(= 0 (length locale))) ; nil or empty string
(setq locale (getenv (pop vars))))))
(when locale