From 02fc092780f71216abfd76373ada0a55676e57e1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 7 Dec 1996 20:31:38 +0000 Subject: (isearch-mode): Maybe make minibuffer frame visible and/or raise it. --- lisp/isearch.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lisp/isearch.el') diff --git a/lisp/isearch.el b/lisp/isearch.el index c48c141310a..1da6f0d9f65 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -467,6 +467,14 @@ is treated as a regexp. See \\[isearch-forward] for more info." (setq isearch-window-configuration (if isearch-slow-terminal-mode (current-window-configuration) nil)) + ;; Maybe make minibuffer frame visible and/or raise it. + (let ((frame (window-frame (minibuffer-window)))) + (if (not (memq (frame-live-p frame) '(nil t))) + (progn + (make-frame-visible frame) + (if minibuffer-auto-raise + (raise-frame frame))))) + (setq isearch-mode " Isearch") ;; forward? regexp? (force-mode-line-update) -- cgit v1.2.1