diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-01-27 19:19:23 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-01-27 19:19:23 +0000 |
| commit | 628f7f31b29dbe37470a6995e8a55ec858f34d48 (patch) | |
| tree | 0616ba339c7ea66c79d4a43a104bcd95cc2f37e3 /lisp/replace.el | |
| parent | 9add5ba1f78a307bf74e9e9bfebddb4e4b09dcc0 (diff) | |
| download | emacs-628f7f31b29dbe37470a6995e8a55ec858f34d48.tar.gz | |
(perform-replace): Don't log the repetitive prompts.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index b81f4e9dfa9..bd9ba1dbe96 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -568,7 +568,10 @@ which will run faster and probably do exactly what you want." (while (not done) (store-match-data real-match-data) (replace-highlight (match-beginning 0) (match-end 0)) - (message message from-string next-replacement) + ;; Bind message-log-max so we don't fill up the message log + ;; with a bunch of identical messages. + (let ((message-log-max nil)) + (message message from-string next-replacement)) (setq key (read-event)) (setq key (vector key)) (setq def (lookup-key map key)) |