From: Kim F. Storm <storm@cua.dk>
Date: Tue, 26 Feb 2002 22:52:56 +0000 (+0000)
Subject: (read_minibuf): Set Vminibuf_selected_window on first
X-Git-Tag: ttn-vms-21-2-B4~16445
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6122844a39393ffccfc93b00d763ccbf2ae7858b;p=emacs.git

(read_minibuf): Set Vminibuf_selected_window on first
entry to minibuffer or on entry from a non-minibuffer window.
---

diff --git a/src/minibuf.c b/src/minibuf.c
index e606d359f59..cb3a25691ad 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -123,11 +123,6 @@ int minibuffer_auto_raise;
 
 static Lisp_Object last_exact_completion;
 
-/* Non-nil means it is the window for C-M-v to scroll
-   when the minibuffer is selected.  */
-
-extern Lisp_Object Vminibuf_scroll_window;
-
 extern Lisp_Object Voverriding_local_map;
 
 Lisp_Object Quser_variable_p;
@@ -551,6 +546,8 @@ read_minibuf (map, initial, prompt, backup_n, expflag,
     Fredirect_frame_focus (selected_frame, mini_frame);
 
   Vminibuf_scroll_window = selected_window;
+  if (minibuf_level == 1 || !EQ (minibuf_window, selected_window))
+    Vminibuf_selected_window = selected_window;
   Fset_window_buffer (minibuf_window, Fcurrent_buffer ());
   Fselect_window (minibuf_window);
   XSETFASTINT (XWINDOW (minibuf_window)->hscroll, 0);