aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKim F. Storm2006-05-05 23:38:18 +0000
committerKim F. Storm2006-05-05 23:38:18 +0000
commitc3e9438b5fde71d0464c1bd55919468880256651 (patch)
tree03d33f6cbbc7b9d491576a5440cfb780c41776da
parentc398358aee8359d7b63621a35cda5110bc99f81b (diff)
downloademacs-c3e9438b5fde71d0464c1bd55919468880256651.tar.gz
emacs-c3e9438b5fde71d0464c1bd55919468880256651.zip
(lgrep, rgrep): Use add-to-history.
-rw-r--r--lisp/progmodes/grep.el4
1 files changed, 2 insertions, 2 deletions
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]."
676 (setq command 676 (setq command
677 (read-from-minibuffer "Confirm: " 677 (read-from-minibuffer "Confirm: "
678 command nil nil 'grep-history)) 678 command nil nil 'grep-history))
679 (push command grep-history)))) 679 (add-to-history 'grep-history command))))
680 (when command 680 (when command
681 ;; Setting process-setup-function makes exit-message-function work 681 ;; Setting process-setup-function makes exit-message-function work
682 ;; even when async processes aren't supported. 682 ;; even when async processes aren't supported.
@@ -742,7 +742,7 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]."
742 (setq command 742 (setq command
743 (read-from-minibuffer "Confirm: " 743 (read-from-minibuffer "Confirm: "
744 command nil nil 'grep-find-history)) 744 command nil nil 'grep-find-history))
745 (push command grep-find-history)) 745 (add-to-history 'grep-find-history command))
746 (compilation-start command 'grep-mode)))))) 746 (compilation-start command 'grep-mode))))))
747 747
748 748