From: Kim F. Storm <storm@cua.dk>
Date: Fri, 1 Mar 2002 23:50:12 +0000 (+0000)
Subject: (Fminibuffer_selected_window): New function.
X-Git-Tag: ttn-vms-21-2-B4~16407
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa832261257b6bc26fe147cc75da19e4e7c83842;p=emacs.git

(Fminibuffer_selected_window): New function.
(syms_of_window): Defsubr it.
---

diff --git a/src/window.c b/src/window.c
index d1cccd7204f..9dc070bc498 100644
--- a/src/window.c
+++ b/src/window.c
@@ -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);