From 02d95a278d988d0b53d2b4759f36860380348e65 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 1 May 1994 22:56:54 +0000 Subject: [PATCH] (perform-replace): Call substitute-command-keys just once and only if querying. --- lisp/replace.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/replace.el b/lisp/replace.el index d51be301266..65818667ede 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -467,7 +467,11 @@ which will run faster and probably do exactly what you want." (next-rotate-count 0) (replace-count 0) (lastrepl nil) ;Position after last match considered. - (match-again t)) + (match-again t) + (message + (if query-flag + (substitute-command-keys + "Query replacing %s with %s: (\\\\[help] for help) ")))) (if (stringp replacements) (setq next-replacement replacements) (or repeat-count (setq repeat-count 1))) @@ -525,9 +529,7 @@ which will run faster and probably do exactly what you want." ;; which means it has finished handling this occurrence. (while (not done) (replace-highlight (match-beginning 0) (match-end 0)) - (message (substitute-command-keys - "Query replacing %s with %s: (\\\\[help] for help) ") - from-string next-replacement) + (message message from-string next-replacement) (setq key (read-event)) (setq key (vector key)) (setq def (lookup-key map key)) -- 2.39.5