diff options
| author | Juanma Barranquero | 2003-05-06 17:54:41 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-05-06 17:54:41 +0000 |
| commit | b71038b25c16c81c7570fe2ccaaaba0568c1a8b3 (patch) | |
| tree | d0b476b889c50c29feb3e467be763e215f85d3b3 | |
| parent | 41bbbdce51c5c27b1e332b248c3afaf8a055e83b (diff) | |
| download | emacs-b71038b25c16c81c7570fe2ccaaaba0568c1a8b3.tar.gz emacs-b71038b25c16c81c7570fe2ccaaaba0568c1a8b3.zip | |
(setenv): Don't quote nil and t in docstrings.
| -rw-r--r-- | lisp/env.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/env.el b/lisp/env.el index 3fde25f5246..eae724d148d 100644 --- a/lisp/env.el +++ b/lisp/env.el | |||
| @@ -89,8 +89,8 @@ dollar sign." | |||
| 89 | 89 | ||
| 90 | (defun setenv (variable &optional value unset substitute-env-vars) | 90 | (defun setenv (variable &optional value unset substitute-env-vars) |
| 91 | "Set the value of the environment variable named VARIABLE to VALUE. | 91 | "Set the value of the environment variable named VARIABLE to VALUE. |
| 92 | VARIABLE should be a string. VALUE is optional; if not provided or is | 92 | VARIABLE should be a string. VALUE is optional; if not provided or |
| 93 | `nil', the environment variable VARIABLE will be removed. UNSET | 93 | nil, the environment variable VARIABLE will be removed. UNSET |
| 94 | if non-nil means to remove VARIABLE from the environment. | 94 | if non-nil means to remove VARIABLE from the environment. |
| 95 | SUBSTITUTE-ENV-VARS, if non-nil, means to substitute environment | 95 | SUBSTITUTE-ENV-VARS, if non-nil, means to substitute environment |
| 96 | variables in VALUE with `substitute-env-vars', where see. | 96 | variables in VALUE with `substitute-env-vars', where see. |
| @@ -126,7 +126,7 @@ a side-effect." | |||
| 126 | (memq (coding-system-base locale-coding-system) codings)) | 126 | (memq (coding-system-base locale-coding-system) codings)) |
| 127 | (error "Can't encode `%s=%s' with `locale-coding-system'" | 127 | (error "Can't encode `%s=%s' with `locale-coding-system'" |
| 128 | variable (or value ""))))) | 128 | variable (or value ""))))) |
| 129 | (if unset | 129 | (if unset |
| 130 | (setq value nil) | 130 | (setq value nil) |
| 131 | (if substitute-env-vars | 131 | (if substitute-env-vars |
| 132 | (setq value (substitute-env-vars value)))) | 132 | (setq value (substitute-env-vars value)))) |