Changeset 4071 for vendor/emacs-CVS_HEAD/lisp/env.el

Timestamp:

05/03/06 18:06:44 (3 years ago)

Author:

miyoshi

Message:

Load emacs-to-svn into vendor/emacs-CVS_HEAD.

Files:

• vendor/emacs-CVS_HEAD/lisp/env.el (modified) (5 diffs)

vendor/emacs-CVS_HEAD/lisp/env.el

@@ -91 +91 @@
-;; Fixme: Should `process-environment' be recoded if LC_CTYPE &c is set?
-
-unset 
+
-  "Set the value of the environment variable named VARIABLE to VALUE.
-VARIABLE should be a string.  VALUE is optional; if not provided or
-
-
-
-
-
-
+
-
-Interactively, a prefix argument means to unset the variable.
@@ -105 +100 @@
-appears at the front of the history list when you type in the new value.
-Interactively, always replace environment variables in the new value.
+
+SUBSTITUTE-ENV-VARS, if non-nil, means to substitute environment
+variables in VALUE with `substitute-env-vars', which see.
+This is normally used only for interactive calls.
+
+The return value is the new value of VARIABLE, or nil if
+it was removed from the environment.
-
-This function works by modifying `process-environment'.
@@ -112 +114 @@
-  (interactive
-   (if current-prefix-arg
- t
+
-     (let* ((var (read-envvar-name "Set environment variable: " nil))
-            (value (getenv var)))
@@ -122 +124 @@
-                                   nil nil nil 'setenv-history
-                                   value)
-             nil
-             t))))
-  (if (and (multibyte-string-p variable) locale-coding-system)
@@ -130 +131 @@
-          (error "Can't encode `%s=%s' with `locale-coding-system'"
-                 variable (or value "")))))
-
-
-
-
+
+
+
-  (if (multibyte-string-p variable)
-      (setq variable (encode-coding-string variable locale-coding-system)))