diff options
| author | Kim F. Storm | 2006-05-05 23:36:55 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-05-05 23:36:55 +0000 |
| commit | 4c5f6185280e155c418568bc6b9844059aa5f992 (patch) | |
| tree | 6340e21fc1de4c0321545652834375a80013ae6c | |
| parent | 640ad75b3c4549394eec314b3305ca576d185965 (diff) | |
| download | emacs-4c5f6185280e155c418568bc6b9844059aa5f992.tar.gz emacs-4c5f6185280e155c418568bc6b9844059aa5f992.zip | |
(setenv): Use add-to-history.
| -rw-r--r-- | lisp/env.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/env.el b/lisp/env.el index 1b6c038cbea..5a3de0ac712 100644 --- a/lisp/env.el +++ b/lisp/env.el | |||
| @@ -117,7 +117,7 @@ a side-effect." | |||
| 117 | (let* ((var (read-envvar-name "Set environment variable: " nil)) | 117 | (let* ((var (read-envvar-name "Set environment variable: " nil)) |
| 118 | (value (getenv var))) | 118 | (value (getenv var))) |
| 119 | (when value | 119 | (when value |
| 120 | (push value setenv-history)) | 120 | (add-to-history 'setenv-history value)) |
| 121 | ;; Here finally we specify the args to give call setenv with. | 121 | ;; Here finally we specify the args to give call setenv with. |
| 122 | (list var | 122 | (list var |
| 123 | (read-from-minibuffer (format "Set %s to value: " var) | 123 | (read-from-minibuffer (format "Set %s to value: " var) |