From: Kim F. Storm <storm@cua.dk>
Date: Fri, 5 May 2006 23:38:18 +0000 (+0000)
Subject: (lgrep, rgrep): Use add-to-history.
X-Git-Tag: emacs-pretest-22.0.90~2776
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3e9438b5fde71d0464c1bd55919468880256651;p=emacs.git

(lgrep, rgrep): Use add-to-history.
---

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index c695272e92b..403ea40c839 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -676,7 +676,7 @@ This command shares argument histories with \\[rgrep] and \\[grep]."
 	      (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 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]."
 	      (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))))))