Mercurial > emacs
changeset 16631:024d3847af99
(perform-replace): Obey minibuffer-auto-raise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 07 Dec 1996 21:23:37 +0000 |
| parents | b337bd642856 |
| children | 5dd86f31843a |
| files | lisp/replace.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))