(perform-replace): Obey minibuffer-auto-raise.

1 files changed, 2 insertions, 0 deletions

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