# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1018450047 0
# Node ID 9d117150b0a2c5ec7153c2c5c5c0af997a736d8f
# Parent  b1d6fcf67b85374adbc90c66f8d10622aabc70c5
(isearch-mode): Don't call make-frame-visible
if frame is already visible.

diff -r b1d6fcf67b85 -r 9d117150b0a2 lisp/isearch.el
--- a/lisp/isearch.el	Wed Apr 10 14:45:37 2002 +0000
+++ b/lisp/isearch.el	Wed Apr 10 14:47:27 2002 +0000
@@ -585,11 +585,11 @@
 
   ;; 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)))))
+    (unless (memq (frame-live-p frame) '(nil t))
+      (unless (frame-visible-p frame)
+	(make-frame-visible frame))
+      (if minibuffer-auto-raise
+	  (raise-frame frame))))
 
   (setq	isearch-mode " Isearch")  ;; forward? regexp?
   (force-mode-line-update)
@@ -1600,8 +1600,8 @@
 		       (concat " [" current-input-method-title "]: ")
 		     ": ")
 		   )))
-    (propertize (concat (upcase (substring m 0 1)) (substring m 1)) 'face 'minibuffer-prompt)))
-
+    (propertize (concat (upcase (substring m 0 1)) (substring m 1))
+		'face 'minibuffer-prompt)))
 
 (defun isearch-message-suffix (&optional c-q-hack ellipsis)
   (concat (if c-q-hack "^Q" "")