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) |