changeset 10566:9f018a8f2f67

(perform-replace): Don't log the repetitive prompts.
author Karl Heuer <kwzh@gnu.org>
date Fri, 27 Jan 1995 19:19:23 +0000
parents 79848fcf723b
children 65c5552c16cb
files lisp/replace.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))