From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 2 Sep 1995 16:20:15 +0000 (+0000)
Subject: [!MULTI_FRAME] (Factive_minibuffer_window): New function.
X-Git-Tag: emacs-19.34~2873
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91b0b37e2aec81015f6db3a43c80103d4e7a8375;p=emacs.git

[!MULTI_FRAME] (Factive_minibuffer_window): New function.
[!MULTI_FRAME] (syms_of_frame): defsubr it.
---

diff --git a/src/frame.c b/src/frame.c
index 11a0d58c919..304fe8a879a 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -2091,6 +2091,16 @@ DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0,
   return tem;
 }
 
+DEFUN ("active-minibuffer-window", Factive_minibuffer_window,
+       Sactive_minibuffer_window, 0, 0, 0,
+  /* Don't confuse make-docfile by having two doc strings for this function.
+     make-docfile does not pay attention to #if, for good reason!  */
+  0)
+  ()
+{
+  return minibuf_level ? minibuf_window : Qnil;
+}
+
 DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 1, 1, 0,
   /* Don't confuse make-docfile by having two doc strings for this function.
      make-docfile does not pay attention to #if, for good reason!  */
@@ -2429,6 +2439,7 @@ syms_of_frame ()
   XSETFASTINT (Vterminal_frame, 0);
 
   defsubr (&Sselected_frame);
+  defsubr (&Sactive_minibuffer_window);
   defsubr (&Swindow_frame);
   defsubr (&Sframe_first_window);
   defsubr (&Sframep);