diff lisp/replace.el @ 10566:9f018a8f2f67

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

--- a/lisp/replace.el	Fri Jan 27 19:16:50 1995 +0000
+++ b/lisp/replace.el	Fri Jan 27 19:19:23 1995 +0000
@@ -568,7 +568,10 @@
 	      (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))