(size_window): Set the window's orig_top to nil when

changing heights, so that a future shrink_mini_window won't
restore a bogus height.

2 files changed, 7 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 5229e927211..929096d98ee 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2001-01-26  Gerd Moellmann  <gerd@gnu.org>
 
+        * window.c (size_window): Set the window's orig_top to nil when
+        changing heights, so that a future shrink_mini_window won't
+        restore a bogus height.
+
         * frame.c (do_switch_frame): If selected frame has a mini-window,
         resize that to exact size.
 
diff --git a/src/window.c b/src/window.c
index e507254f8c0..1b6ac07955d 100644
--- a/src/window.c
+++ b/src/window.c
@@ -2445,6 +2445,7 @@ size_window (window, size, width_p, nodelete_p)
       sideward = &w->hchild;
       forward = &w->vchild;
       w->height = make_number (size);
+      w->orig_height = Qnil;
     }
 
   if (!NILP (*sideward))
@@ -3803,6 +3804,8 @@ shrink_mini_window (w)
     }
   else if (XFASTINT (w->height) > 1)
     {
+      /* Distribute the additional lines of the mini-window
+         among the other windows.  */
       Lisp_Object window;
       XSETWINDOW (window, w);
       enlarge_window (window, 1 - XFASTINT (w->height), 0);