# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 849993817 0
# Node ID 024d3847af999eb712260dc0b32010122c359ad5
# Parent  b337bd6428561e2ec546bad22b0166b0090904c2
(perform-replace): Obey minibuffer-auto-raise.

diff -r b337bd642856 -r 024d3847af99 lisp/replace.el
--- a/lisp/replace.el	Sat Dec 07 21:22:27 1996 +0000
+++ b/lisp/replace.el	Sat Dec 07 21:23:37 1996 +0000
@@ -513,6 +513,8 @@
     (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)))))