[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/env.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/env.el |
Date: |
Tue, 25 Feb 2003 01:19:21 -0500 |
Index: emacs/lisp/env.el
diff -c emacs/lisp/env.el:1.28 emacs/lisp/env.el:1.29
*** emacs/lisp/env.el:1.28 Mon Feb 24 17:51:41 2003
--- emacs/lisp/env.el Tue Feb 25 01:19:21 2003
***************
*** 121,133 ****
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 ""))))
(if unset
(setq value nil)
(if substitute-env-vars
--- 121,131 ----
nil
t))))
(if (and (multibyte-string-p variable) locale-coding-system)
! (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