diff options
| -rw-r--r-- | src/frame.c | 11 |
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); |