Mercurial > emacs

changeset 49042:01956f552316

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-locale-environment): Ignore empty values of environment variables.
author Dave Love <fx@gnu.org>
date Sun, 05 Jan 2003 00:38:05 +0000
parents 55904f644d2a
children b7a1650c6747
files lisp/international/mule-cmds.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Sun Jan 05 00:28:18 2003 +0000
+++ b/lisp/international/mule-cmds.el	Sun Jan 05 00:38:05 2003 +0000
@@ -2187,8 +2187,9 @@
       ;; 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