# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 796672052 0
# Node ID d0550c056e5b9cb24ed9b2d71d62e93505a63758
# Parent  0d016216ea29af32e2a5857ed9070bb1bf1add6c
[MULTI_FRAME] (Factive_minibuffer_window): New function.
[MULTI_FRAME] (syms_of_frame): Defsubr it.

diff -r 0d016216ea29 -r d0550c056e5b src/frame.c
--- a/src/frame.c	Fri Mar 31 06:25:17 1995 +0000
+++ b/src/frame.c	Fri Mar 31 17:47:32 1995 +0000
@@ -1,5 +1,5 @@
 /* Generic frame functions.
-   Copyright (C) 1993, 1994 Free Software Foundation.
+   Copyright (C) 1993, 1994, 1995 Free Software Foundation.
 
 This file is part of GNU Emacs.
 
@@ -556,6 +556,14 @@
   return w;
 }
 
+DEFUN ("active-minibuffer-window", Factive_minibuffer_window,
+       Sactive_minibuffer_window, 0, 0, 0,
+       "Return the currently active minibuffer window, or nil if none.")
+  ()
+{
+  return minibuf_level ? minibuf_window : Qnil;
+}
+
 DEFUN ("frame-root-window", Fframe_root_window, Sframe_root_window, 0, 1, 0,
        "Returns the root-window of FRAME.\n\
 If omitted, FRAME defaults to the currently selected frame.")
@@ -1867,6 +1875,7 @@
  have menu bars; `menu-bar-mode' works by altering this element.");
   Vdefault_frame_alist = Qnil;
 
+  defsubr (&Sactive_minibuffer_window);
   defsubr (&Sframep);
   defsubr (&Sframe_live_p);
   defsubr (&Smake_terminal_frame);