(setenv): Interactively, if VARIABLE has a current value,

add that to the front of the history, as the doc string says.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07e1404eff4..e063015ef82 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-09-04  Gerd Moellmann  <gerd@gnu.org>
 
+        * env.el (setenv): Interactively, if VARIABLE has a current value,
+        add that to the front of the history, as the doc string says.
+
         * comint.el (comint-send-input): Change help-echo.
         From "Dr Francis J. Wright" <F.J.Wright@qmw.ac.uk>.
         
diff --git a/lisp/env.el b/lisp/env.el
index 1824bd378ce..58e830beaa1 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -1,6 +1,6 @@
 ;;; env.el --- functions to manipulate environment variables
 
-;; Copyright (C) 1991, 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1991, 1994, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: processes, unix
@@ -62,11 +62,14 @@ This function works by modifying `process-environment'."
   (interactive
    (if current-prefix-arg
        (list (read-envvar-name "Clear environment variable: " 'exact) nil t)
-     (let ((var (read-envvar-name "Set environment variable: " nil)))
+     (let* ((var (read-envvar-name "Set environment variable: " nil))
+            (value (getenv var)))
+       (when value
+         (push value setenv-history))
        ;; Here finally we specify the args to give call setenv with.
        (list var (read-from-minibuffer (format "Set %s to value: " var)
                                        nil nil nil 'setenv-history
-                                       (getenv var))))))
+                                       value)))))
   (if unset (setq value nil))
   (if (string-match "=" variable)
       (error "Environment variable name `%s' contains `='" variable)