Commit 1ebb05c4 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(setenv): Fix previous change.

parent bb8db7e1
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment