From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 27 Jan 1995 19:19:23 +0000 (+0000)
Subject: (perform-replace): Don't log the repetitive prompts.
X-Git-Tag: emacs-19.34~5292
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c006b215fabf19c1ac4678dfb05bd4321148286e;p=emacs.git

(perform-replace): Don't log the repetitive prompts.
---

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))