# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 791234363 0
# Node ID 9f018a8f2f67d00ea173afe8838080d6c21470a4
# Parent  79848fcf723b10a4c858c1760db25ccb1fbb38bc
(perform-replace): Don't log the repetitive prompts.

diff -r 79848fcf723b -r 9f018a8f2f67 lisp/replace.el
--- 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))