From 5add3885ddaa0d67122703fde2644c3478259d5d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 31 Mar 1995 17:47:32 +0000 Subject: [PATCH] [MULTI_FRAME] (Factive_minibuffer_window): New function. [MULTI_FRAME] (syms_of_frame): Defsubr it. --- src/frame.c | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/frame.c b/src/frame.c index d1b70fdaa7..448e36b297 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); -- 2.20.1