/[emacs]/emacs/lisp/isearch.el
ViewVC logotype

Diff of /emacs/lisp/isearch.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.210 by pj, Tue Apr 9 09:25:08 2002 UTC revision 1.211 by rms, Wed Apr 10 14:47:27 2002 UTC
# Line 585  is treated as a regexp.  See \\[isearch- Line 585  is treated as a regexp.  See \\[isearch-
585    
586    ;; Maybe make minibuffer frame visible and/or raise it.    ;; Maybe make minibuffer frame visible and/or raise it.
587    (let ((frame (window-frame (minibuffer-window))))    (let ((frame (window-frame (minibuffer-window))))
588      (if (not (memq (frame-live-p frame) '(nil t)))      (unless (memq (frame-live-p frame) '(nil t))
589          (progn        (unless (frame-visible-p frame)
590            (make-frame-visible frame)          (make-frame-visible frame))
591            (if minibuffer-auto-raise        (if minibuffer-auto-raise
592                (raise-frame frame)))))            (raise-frame frame))))
593    
594    (setq isearch-mode " Isearch")  ;; forward? regexp?    (setq isearch-mode " Isearch")  ;; forward? regexp?
595    (force-mode-line-update)    (force-mode-line-update)
# Line 1600  If there is no completion possible, say Line 1600  If there is no completion possible, say
1600                         (concat " [" current-input-method-title "]: ")                         (concat " [" current-input-method-title "]: ")
1601                       ": ")                       ": ")
1602                     )))                     )))
1603      (propertize (concat (upcase (substring m 0 1)) (substring m 1)) 'face 'minibuffer-prompt)))      (propertize (concat (upcase (substring m 0 1)) (substring m 1))
1604                    'face 'minibuffer-prompt)))
1605    
1606  (defun isearch-message-suffix (&optional c-q-hack ellipsis)  (defun isearch-message-suffix (&optional c-q-hack ellipsis)
1607    (concat (if c-q-hack "^Q" "")    (concat (if c-q-hack "^Q" "")

Legend:
Removed from v.1.210  
changed lines
  Added in v.1.211

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26