[MULTI_FRAME] (Factive_minibuffer_window): New function.

[MULTI_FRAME] (syms_of_frame): Defsubr it.

1 files changed, 10 insertions, 1 deletions

diff --git a/src/frame.c b/src/frame.c
index d1b70fdaa70..448e36b2974 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -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 @@ If omitted, FRAME defaults to the currently selected frame.")
   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 @@ The `menu-bar-lines' element of the list controls whether new frames\n\
  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);