mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1996-12-07 21:23:37 +00:00
parent 1d2517f2ed
commit 1c1dadabf3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/replace.el
View File

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