(setenv): Use add-to-history.

This commit is contained in:
Kim F. Storm 2006-05-05 23:36:55 +00:00
parent 640ad75b3c
commit 4c5f618528

View file

@ -117,7 +117,7 @@ a side-effect."
(let* ((var (read-envvar-name "Set environment variable: " nil))
(value (getenv var)))
(when value
(push value setenv-history))
(add-to-history 'setenv-history value))
;; Here finally we specify the args to give call setenv with.
(list var
(read-from-minibuffer (format "Set %s to value: " var)