[Emacs-diffs] Changes to emacs/lisp/isearch.el

[Richard M. Stallman]

Index: emacs/lisp/isearch.el
diff -c emacs/lisp/isearch.el:1.210 emacs/lisp/isearch.el:1.211
*** emacs/lisp/isearch.el:1.210 Tue Apr  9 05:25:08 2002
--- emacs/lisp/isearch.el       Wed Apr 10 10:47:27 2002
***************
*** 585,595 ****
  
    ;; 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)
--- 585,595 ----
  
    ;; Maybe make minibuffer frame visible and/or raise it.
    (let ((frame (window-frame (minibuffer-window))))
!     (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,1607 ****
                       (concat " [" current-input-method-title "]: ")
                     ": ")
                   )))
!     (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" "")
--- 1600,1607 ----
                       (concat " [" current-input-method-title "]: ")
                     ": ")
                   )))
!     (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" "")