diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 11:26:42 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 11:26:42 +0000 |
| commit | 71296446d3cec5bb2a27bc5ad6da574df38d0ec8 (patch) | |
| tree | 0204c3c252547a44e2404959409034406f7680cd /lisp/env.el | |
| parent | 693ff6134cb2ec65c7d188696f012662edadfbf0 (diff) | |
| download | emacs-71296446d3cec5bb2a27bc5ad6da574df38d0ec8.tar.gz | |
Trailing whitespace deleted.
Diffstat (limited to 'lisp/env.el')
| -rw-r--r-- | lisp/env.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/env.el b/lisp/env.el index e19f9f7f5da..f41677fcf18 100644 --- a/lisp/env.el +++ b/lisp/env.el @@ -55,10 +55,10 @@ If it is also not t, RET does not exit if it does non-null completion." `$FOO' where FOO is an environment variable name means to substitute the value of that variable. The variable name should be terminated with a character not a letter, digit or underscore; otherwise, enclose -the entire variable name in braces. Use `$$' to insert a single +the entire variable name in braces. Use `$$' to insert a single dollar sign." (let ((start 0)) - (while (string-match + (while (string-match (rx (or (and "$" (submatch (1+ (in "a-zA-Z0-9_")))) (and "${" (submatch (minimal-match (0+ anything))) "}") "$$")) @@ -101,13 +101,13 @@ This function works by modifying `process-environment'." (when value (push value setenv-history)) ;; Here finally we specify the args to give call setenv with. - (list var + (list var (read-from-minibuffer (format "Set %s to value: " var) nil nil nil 'setenv-history value) - nil + nil t)))) - (if unset + (if unset (setq value nil) (if substitute-env-vars (setq value (substitute-env-vars value)))) |