diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-12-07 21:23:37 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-12-07 21:23:37 +0000 |
commit | 8f31a904f6542cb2c1321585f06931984dad2332 (patch) | |
tree | 84cec35690e9e0a212c051df18834fc278782de9 | |
parent | c2c5a18bb84b004945398a6a2dd891c634f985a4 (diff) | |
download | emacs-8f31a904f6542cb2c1321585f06931984dad2332.tar.gz |
(perform-replace): Obey minibuffer-auto-raise.
-rw-r--r-- | lisp/replace.el | 2 |
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))))) |