diff options
| author | Kim F. Storm | 2006-05-05 23:38:18 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-05-05 23:38:18 +0000 |
| commit | c3e9438b5fde71d0464c1bd55919468880256651 (patch) | |
| tree | 03d33f6cbbc7b9d491576a5440cfb780c41776da | |
| parent | c398358aee8359d7b63621a35cda5110bc99f81b (diff) | |
| download | emacs-c3e9438b5fde71d0464c1bd55919468880256651.tar.gz emacs-c3e9438b5fde71d0464c1bd55919468880256651.zip | |
(lgrep, rgrep): Use add-to-history.
| -rw-r--r-- | lisp/progmodes/grep.el | 4 |
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 | ||