# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1146872298 0
# Node ID 47fe68ac1971387b6f692a2a3e7992304ba0f9a6
# Parent  718312081ce0dcca0f01fd7dbdf1efb8c3671936
(lgrep, rgrep): Use add-to-history.

diff -r 718312081ce0 -r 47fe68ac1971 lisp/progmodes/grep.el
--- a/lisp/progmodes/grep.el	Fri May 05 23:37:55 2006 +0000
+++ b/lisp/progmodes/grep.el	Fri May 05 23:38:18 2006 +0000
@@ -676,7 +676,7 @@
 	      (setq command
 		    (read-from-minibuffer "Confirm: "
 					  command nil nil 'grep-history))
-	    (push command grep-history))))
+	    (add-to-history 'grep-history command))))
       (when command
 	;; Setting process-setup-function makes exit-message-function work
 	;; even when async processes aren't supported.
@@ -742,7 +742,7 @@
 	      (setq command
 		    (read-from-minibuffer "Confirm: "
 					  command nil nil 'grep-find-history))
-	    (push command grep-find-history))
+	    (add-to-history 'grep-find-history command))
 	  (compilation-start command 'grep-mode))))))