From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 31 Mar 1995 17:47:32 +0000 (+0000)
Subject: [MULTI_FRAME] (Factive_minibuffer_window): New function.
X-Git-Tag: emacs-19.34~4689
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5add3885ddaa0d67122703fde2644c3478259d5d;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 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);