From 360e0dd587bd834889a6129da782bcd170e6a8e9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 10 Apr 2002 14:47:27 +0000 Subject: [PATCH] (isearch-mode): Don't call make-frame-visible if frame is already visible. --- lisp/isearch.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 7d2a4540c64..050cccbd875 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -585,11 +585,11 @@ is treated as a regexp. See \\[isearch-forward] for more info." ;; 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 @@ If there is no completion possible, say so and continue searching." (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" "") -- 2.39.2