From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 Dec 1996 20:31:38 +0000 (+0000)
Subject: (isearch-mode): Maybe make minibuffer frame visible and/or raise it.
X-Git-Tag: emacs-20.1~3324
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=18ce7555c807381683980920dc86fac756c89d4d;p=emacs.git

(isearch-mode): Maybe make minibuffer frame visible and/or raise it.
---

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)