Mercurial > emacs
changeset 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 | 0d016216ea29 |
| children | 4d33c7615a5c |
| files | src/frame.c |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
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);