mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Karl Heuer 1995-01-27 19:19:23 +00:00
parent eaecdb8162
commit c006b215fa
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/replace.el
View File

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