From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 Dec 1996 21:23:37 +0000 (+0000)
Subject: (perform-replace): Obey minibuffer-auto-raise.
X-Git-Tag: emacs-20.1~3313
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c1dadabf3268c41a7f5e9584d208eeb207f100b;p=emacs.git

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

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