# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1146872215 0
# Node ID 95f3ef491663245a270fa4764df5b0cdac3a77f2
# Parent  522ce5c1839a3d9101cae5f1939fd4cd190b419c
(setenv): Use add-to-history.

diff -r 522ce5c1839a -r 95f3ef491663 lisp/env.el
--- a/lisp/env.el	Fri May 05 23:36:32 2006 +0000
+++ b/lisp/env.el	Fri May 05 23:36:55 2006 +0000
@@ -117,7 +117,7 @@
      (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)