mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -08:00
Code Issues Projects Releases Wiki Activity

(Fminibuffer_selected_window): New function.

Browse source 
(syms_of_window): Defsubr it.
This commit is contained in:
Kim F. Storm 2002-03-01 23:50:12 +00:00
parent ee57fd915c
commit fa83226125
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/window.c
View file

@ -4549,6 +4549,20 @@ by this function. */)
return result;
}
DEFUN ("minibuffer-selected-window", Fminibuffer_selected_window, Sminibuffer_selected_window, 0, 0, 0,
doc: /* Return the window which was selected when entering the minibuffer.
Returns nil, if current window is not a minibuffer window. */)
()
{
if (minibuf_level > 0
&& MINI_WINDOW_P (XWINDOW (selected_window))
&& !NILP (minibuf_selected_window)
&& WINDOW_LIVE_P (minibuf_selected_window))
return minibuf_selected_window;
return Qnil;
}
/* Value is the number of lines actually displayed in window W,
as opposed to its height. */
@ -6012,6 +6026,7 @@ This variable automatically becomes buffer-local when set. */);
defsubr (&Sscroll_right);
defsubr (&Sother_window_for_scrolling);
defsubr (&Sscroll_other_window);
defsubr (&Sminibuffer_selected_window);
defsubr (&Srecenter);
defsubr (&Swindow_text_height);
defsubr (&Smove_to_window_line);