From 1c1dadabf3268c41a7f5e9584d208eeb207f100b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 7 Dec 1996 21:23:37 +0000 Subject: [PATCH] (perform-replace): Obey minibuffer-auto-raise. --- lisp/replace.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/replace.el b/lisp/replace.el index cc603d96c0b..0991c41ab52 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -513,6 +513,8 @@ just as `query-replace' does. Instead, write a simple loop like this: (replace-match \"foobar\" nil nil)) which will run faster and probably do exactly what you want." (or map (setq map query-replace-map)) + (and query-flag minibuffer-auto-raise + (raise-frame (window-frame (minibuffer-window)))) (let ((nocasify (not (and case-fold-search case-replace (string-equal from-string (downcase from-string))))) -- 2.39.5