# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 849990698 0
# Node ID c3a095290ec42749afaeb28a53b78b2b36739133
# Parent  4f8448158c103cc3c9ee35cc2d305235de01a19e
(isearch-mode): Maybe make minibuffer frame visible and/or raise it.

diff -r 4f8448158c10 -r c3a095290ec4 lisp/isearch.el
--- a/lisp/isearch.el	Sat Dec 07 20:30:18 1996 +0000
+++ b/lisp/isearch.el	Sat Dec 07 20:31:38 1996 +0000
@@ -467,6 +467,14 @@
   (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)