diff options
author | Kenichi Handa <handa@m17n.org> | 2003-02-25 06:19:36 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2003-02-25 06:19:36 +0000 |
commit | 1ebb05c430dfc6bd212eba02e2e2f5a5ef416daf (patch) | |
tree | f24c2b9fa8baa80b5f60bfd0e0080ea39f67bd25 /lisp/env.el | |
parent | bb8db7e1f53a421671c4ecbfa32b6b3242e2c961 (diff) |
(setenv): Fix previous change.
Diffstat (limited to 'lisp/env.el')
-rw-r--r-- | lisp/env.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/env.el b/lisp/env.el index 912634482bf..3fde25f5246 100644 --- a/lisp/env.el +++ b/lisp/env.el @@ -121,13 +121,11 @@ a side-effect." nil t)))) (if (and (multibyte-string-p variable) locale-coding-system) - (unless (memq (coding-system-base locale-coding-system) - (find-coding-systems-string (concat variable value))) - (error "Can't encode `%s=%s' with `locale-coding-system'" - variable (or value ""))) - (unless (memq 'undecided (find-coding-systems-string variable)) - (error "Can't encode `%s=%s' with unspecified `locale-coding-system'" - variable (or value "")))) + (let ((codings (find-coding-systems-string (concat variable value)))) + (unless (or (eq 'undecided (car codings)) + (memq (coding-system-base locale-coding-system) codings)) + (error "Can't encode `%s=%s' with `locale-coding-system'" + variable (or value ""))))) (if unset (setq value nil) (if substitute-env-vars |