From: Kim F. Storm <storm@cua.dk>
Date: Tue, 26 Feb 2002 22:50:55 +0000 (+0000)
Subject: (Vminibuf_selected_window): New variable.
X-Git-Tag: ttn-vms-21-2-B4~16447
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f49fddcb90df6cc77544acf22f0c54282b7dade;p=emacs.git

(Vminibuf_selected_window): New variable.
(struct save_window_data): New member minibuf_selected_window.
(Fset_window_configuration): Restore Vminibuf_selected_window.
(Fcurrent_window_configuration): Save Vminibuf_selected_window.
Set minibuf_scroll_window member to nil if minibuf_level is 0.
(compare_window_configurations): Compare minibuf_selected_window.
---

diff --git a/src/window.c b/src/window.c
index d797ff75627..3e07ea2a4a8 100644
--- a/src/window.c
+++ b/src/window.c
@@ -120,6 +120,11 @@ Lisp_Object Vwindow_list;
 
 Lisp_Object minibuf_window;
 
+/* Non-nil means it is the window whose mode line should be
+   shown as the selected window when the minibuffer is selected.  */
+
+Lisp_Object Vminibuf_selected_window;
+
 /* Non-nil means it is the window for C-M-v to scroll
    when the mini-buffer is selected.  */
 
@@ -4793,6 +4798,7 @@ struct save_window_data
     Lisp_Object current_window;
     Lisp_Object current_buffer;
     Lisp_Object minibuf_scroll_window;
+    Lisp_Object minibuf_selected_window;
     Lisp_Object root_window;
     Lisp_Object focus_frame;
     /* Record the values of window-min-width and window-min-height
@@ -5156,6 +5162,7 @@ the return value is nil.  Otherwise the value is t.  */)
   window_min_width = XINT (data->min_width);
 
   Vminibuf_scroll_window = data->minibuf_scroll_window;
+  Vminibuf_selected_window = data->minibuf_selected_window;
 
   return (FRAME_LIVE_P (f) ? Qt : Qnil);
 }
@@ -5365,7 +5372,8 @@ redirection (see `redirect-frame-focus').  */)
   data->selected_frame = selected_frame;
   data->current_window = FRAME_SELECTED_WINDOW (f);
   XSETBUFFER (data->current_buffer, current_buffer);
-  data->minibuf_scroll_window = Vminibuf_scroll_window;
+  data->minibuf_scroll_window = minibuf_level > 0 ? Vminibuf_scroll_window : Qnil;
+  data->minibuf_selected_window = minibuf_level > 0 ? Vminibuf_selected_window : Qnil;
   data->root_window = FRAME_ROOT_WINDOW (f);
   data->focus_frame = FRAME_FOCUS_FRAME (f);
   XSETINT (data->min_height, window_min_height);
@@ -5649,8 +5657,12 @@ compare_window_configurations (c1, c2, ignore_positions)
   if (! EQ (d1->current_buffer, d2->current_buffer))
     return 0;
   if (! ignore_positions)
-    if (! EQ (d1->minibuf_scroll_window, d2->minibuf_scroll_window))
-      return 0;
+    {
+      if (! EQ (d1->minibuf_scroll_window, d2->minibuf_scroll_window))
+	return 0;
+      if (! EQ (d1->minibuf_selected_window, d2->minibuf_selected_window))
+	return 0;
+    }
   /* Don't compare the root_window field.
      We don't require the two configurations
      to use the same window object,