Mercurial > emacs

comparison lisp/env.el @ 49977:f491c5cee974

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setenv): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Tue, 25 Feb 2003 06:19:21 +0000
parents 80ed3e75ba10
children 562c854aa190
comparison
equal deleted inserted replaced
49976:bd3e068b492a 49977:f491c5cee974
119 nil nil nil 'setenv-history 119 nil nil nil 'setenv-history
120 value) 120 value)
121 nil 121 nil
122 t)))) 122 t))))
123 (if (and (multibyte-string-p variable) locale-coding-system) 123 (if (and (multibyte-string-p variable) locale-coding-system)
124 (unless (memq (coding-system-base locale-coding-system) 124 (let ((codings (find-coding-systems-string (concat variable value))))
125 (find-coding-systems-string (concat variable value))) 125 (unless (or (eq 'undecided (car codings))
126 (error "Can't encode `%s=%s' with `locale-coding-system'" 126 (memq (coding-system-base locale-coding-system) codings))
127 variable (or value ""))) 127 (error "Can't encode `%s=%s' with `locale-coding-system'"
128 (unless (memq 'undecided (find-coding-systems-string variable)) 128 variable (or value "")))))
129 (error "Can't encode `%s=%s' with unspecified `locale-coding-system'"
130 variable (or value ""))))
131 (if unset 129 (if unset
132 (setq value nil) 130 (setq value nil)
133 (if substitute-env-vars 131 (if substitute-env-vars
134 (setq value (substitute-env-vars value)))) 132 (setq value (substitute-env-vars value))))
135 (if (multibyte-string-p variable) 133 (if (multibyte-string-p variable)