[Emacs-diffs] Changes to emacs/lisp/env.el

[Miles Bader]

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