Mercurial > emacs
changeset 12987:bca5676d8cb9
[!MULTI_FRAME] (Factive_minibuffer_window): New function.
[!MULTI_FRAME] (syms_of_frame): defsubr it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 02 Sep 1995 16:20:15 +0000 |
| parents | 180f04639e71 |
| children | 4ccd1ffa8b33 |
| files | src/frame.c |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/frame.c Sat Sep 02 16:18:26 1995 +0000 +++ b/src/frame.c Sat Sep 02 16:20:15 1995 +0000 @@ -2091,6 +2091,16 @@ return tem; } +DEFUN ("active-minibuffer-window", Factive_minibuffer_window, + Sactive_minibuffer_window, 0, 0, 0, + /* Don't confuse make-docfile by having two doc strings for this function. + make-docfile does not pay attention to #if, for good reason! */ + 0) + () +{ + return minibuf_level ? minibuf_window : Qnil; +} + DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 1, 1, 0, /* Don't confuse make-docfile by having two doc strings for this function. make-docfile does not pay attention to #if, for good reason! */ @@ -2429,6 +2439,7 @@ XSETFASTINT (Vterminal_frame, 0); defsubr (&Sselected_frame); + defsubr (&Sactive_minibuffer_window); defsubr (&Swindow_frame); defsubr (&Sframe_first_window); defsubr (&Sframep);