From 91b0b37e2aec81015f6db3a43c80103d4e7a8375 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 2 Sep 1995 16:20:15 +0000 Subject: [PATCH] [!MULTI_FRAME] (Factive_minibuffer_window): New function. [!MULTI_FRAME] (syms_of_frame): defsubr it. --- src/frame.c | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/frame.c b/src/frame.c index 11a0d58c919..304fe8a879a 100644 --- a/src/frame.c +++ b/src/frame.c @@ -2091,6 +2091,16 @@ DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0, 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 @@ syms_of_frame () XSETFASTINT (Vterminal_frame, 0); defsubr (&Sselected_frame); + defsubr (&Sactive_minibuffer_window); defsubr (&Swindow_frame); defsubr (&Sframe_first_window); defsubr (&Sframep); -- 2.39.2