diff options
| author | Dave Love | 2003-01-05 00:38:05 +0000 |
|---|---|---|
| committer | Dave Love | 2003-01-05 00:38:05 +0000 |
| commit | db6bd804adccc378d20706ef5ec7494e983968d2 (patch) | |
| tree | 06055a29eaad4fd50bf3e16c7e1451c9bf485109 | |
| parent | 56cfa2440ebcfe17fa70175165effc24bfa44b3d (diff) | |
| download | emacs-db6bd804adccc378d20706ef5ec7494e983968d2.tar.gz emacs-db6bd804adccc378d20706ef5ec7494e983968d2.zip | |
(set-locale-environment): Ignore
empty values of environment variables.
| -rw-r--r-- | lisp/international/mule-cmds.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index c70fa7a43a5..0e6f74d200c 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -2187,8 +2187,9 @@ See also `locale-charset-language-names', `locale-language-names', | |||
| 2187 | ;; Use the first of these three environment variables | 2187 | ;; Use the first of these three environment variables |
| 2188 | ;; that has a nonempty value. | 2188 | ;; that has a nonempty value. |
| 2189 | (let ((vars '("LC_ALL" "LC_CTYPE" "LANG"))) | 2189 | (let ((vars '("LC_ALL" "LC_CTYPE" "LANG"))) |
| 2190 | (while (and vars (not (setq locale (getenv (car vars))))) | 2190 | (while (and vars |
| 2191 | (setq vars (cdr vars))))) | 2191 | (= 0 (length locale))) ; nil or empty string |
| 2192 | (setq locale (getenv (pop vars)))))) | ||
| 2192 | 2193 | ||
| 2193 | (when locale | 2194 | (when locale |
| 2194 | 2195 | ||