Mercurial > emacs
diff src/frame.c @ 11169:d0550c056e5b
[MULTI_FRAME] (Factive_minibuffer_window): New function.
[MULTI_FRAME] (syms_of_frame): Defsubr it.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 31 Mar 1995 17:47:32 +0000 |
parents | 786f1c82a38e |
children | 2f9a24a4c9eb |
line wrap: on
line diff
--- 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);