[Emacs-diffs] Changes to emacs/src/window.c

[Kim F. Storm]

Index: emacs/src/window.c
diff -c emacs/src/window.c:1.406 emacs/src/window.c:1.407
*** emacs/src/window.c:1.406    Fri Mar  1 17:37:16 2002
--- emacs/src/window.c  Fri Mar  1 18:50:12 2002
***************
*** 4549,4554 ****
--- 4549,4568 ----
    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,6017 ****
--- 6026,6032 ----
    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);