(setenv): Fix previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b740adea8b8824640893dbb1fa12da07cd21f1ff..a36a7cdf109e34301c9f15ca15babb2045454cf8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-02-25  Kenichi Handa  <handa@m17n.org>
+
+       * env.el (setenv): Fix previous change.
+
 2003-02-25  Ramakrishnan M  <rama@gnu.org>  (tiny change)
 
        * language/mlm-util.el (mlm-char-glyph): Fix more rules.

diff --git a/lisp/env.el b/lisp/env.el
index 912634482bf37719750b47db8c1619f62379c9cd..3fde25f5246ed3dda02355f97639ad6a2bccbfed 100644 (file)
--- 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