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

diff --git a/lisp/replace.el b/lisp/replace.el
index b81f4e9dfa9af8ff79c150c2090b4c7c63fb2d4a..bd9ba1dbe9628daf0363cacba44c4d5da693bb52 100644 (file)
--- 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))