Mercurial > emacs
comparison lisp/isearch.el @ 16620:c3a095290ec4
(isearch-mode): Maybe make minibuffer frame visible and/or raise it.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 07 Dec 1996 20:31:38 +0000 |
parents | 45e694f5babe |
children | 1b774e82752f |
comparison
equal
deleted
inserted
replaced
16619:4f8448158c10 | 16620:c3a095290ec4 |
---|---|
464 search-ring-yank-pointer nil | 464 search-ring-yank-pointer nil |
465 regexp-search-ring-yank-pointer nil) | 465 regexp-search-ring-yank-pointer nil) |
466 (looking-at "") | 466 (looking-at "") |
467 (setq isearch-window-configuration | 467 (setq isearch-window-configuration |
468 (if isearch-slow-terminal-mode (current-window-configuration) nil)) | 468 (if isearch-slow-terminal-mode (current-window-configuration) nil)) |
469 | |
470 ;; Maybe make minibuffer frame visible and/or raise it. | |
471 (let ((frame (window-frame (minibuffer-window)))) | |
472 (if (not (memq (frame-live-p frame) '(nil t))) | |
473 (progn | |
474 (make-frame-visible frame) | |
475 (if minibuffer-auto-raise | |
476 (raise-frame frame))))) | |
469 | 477 |
470 (setq isearch-mode " Isearch") ;; forward? regexp? | 478 (setq isearch-mode " Isearch") ;; forward? regexp? |
471 (force-mode-line-update) | 479 (force-mode-line-update) |
472 | 480 |
473 (isearch-push-state) | 481 (isearch-push-state) |