Mercurial > emacs
changeset 11149:8904c26c2182
(minibuffer-window-active-p): Use active-minibuffer-window.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 29 Mar 1995 07:14:38 +0000 |
| parents | 117b32676686 |
| children | 030b401afd0e |
| files | lisp/window.el |
| diffstat | 1 files changed, 1 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/window.el Tue Mar 28 23:33:32 1995 +0000 +++ b/lisp/window.el Wed Mar 29 07:14:38 1995 +0000 @@ -74,17 +74,7 @@ (defun minibuffer-window-active-p (window) "Return t if WINDOW (a minibuffer window) is now active." - ;; nil nil means include WINDOW's frame - ;; and other frames using WINDOW as minibuffer, - ;; and include minibuffer if active. - (let ((prev (previous-window window nil nil))) - ;; If PREV equals WINDOW, WINDOW must be on a minibuffer-only frame - ;; and it's not currently being used. So return nil. - (and (not (eq window prev)) - (let ((should-be-same (next-window prev nil nil))) - ;; If next-window doesn't reverse previous-window, - ;; WINDOW must be outside the cycle specified by nil nil. - (eq should-be-same window))))) + (eq window (active-minibuffer-window))) (defun count-windows (&optional minibuf) "Returns the number of visible windows.