From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 29 Mar 1995 07:14:38 +0000 (+0000)
Subject: (minibuffer-window-active-p): Use active-minibuffer-window.
X-Git-Tag: emacs-19.34~4709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d624ea45aff9ab15445f2bc6d79445262d31205;p=emacs.git

(minibuffer-window-active-p): Use active-minibuffer-window.
---

diff --git a/lisp/window.el b/lisp/window.el
index d760b28830d..cd2e5c69425 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -74,17 +74,7 @@ Anything else means restrict to WINDOW's frame."
 
 (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.