diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-07 20:31:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-07 20:31:38 +0000 |
| commit | 02fc092780f71216abfd76373ada0a55676e57e1 (patch) | |
| tree | 5749f9673319be9c06066d45b5e27e83ce3cffe0 | |
| parent | cbcf0efb6d2cb9851475fc491a7d2463a954fde7 (diff) | |
| download | emacs-02fc092780f71216abfd76373ada0a55676e57e1.tar.gz | |
(isearch-mode): Maybe make minibuffer frame visible and/or raise it.
| -rw-r--r-- | lisp/isearch.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index c48c141310a..1da6f0d9f65 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -467,6 +467,14 @@ is treated as a regexp. See \\[isearch-forward] for more info." (setq isearch-window-configuration (if isearch-slow-terminal-mode (current-window-configuration) nil)) + ;; 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) |