# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782627614 0
# Node ID e466cdfd962ef74ed95bd35ffc5fc3dbe56e5874
# Parent  530b4511e5b311329629f264e8fefd8bc2909c38
(Fdisplay_buffer): If the other window is smaller
than its peer, even out their heights.

diff -r 530b4511e5b3 -r e466cdfd962e src/window.c
--- a/src/window.c	Wed Oct 19 22:52:57 1994 +0000
+++ b/src/window.c	Thu Oct 20 04:33:34 1994 +0000
@@ -1946,6 +1946,8 @@
 	window = Fsplit_window (window, Qnil, Qnil);
       else
 	{
+	  Lisp_Object upper, lower, other;
+
 	  window = Fget_lru_window (frames);
 	  /* If the LRU window is selected, and big enough,
 	     and can be split, split it.  */
@@ -1974,6 +1976,24 @@
 	  if (NILP (window))
 	    window = Fframe_first_window (Fselected_frame ());
 #endif
+	  /* If window appears above or below another,
+	     even out their heights.  */
+	  if (!NILP (XWINDOW (window)->prev))
+	    other = upper = XWINDOW (window)->prev, lower = window;
+	  if (!NILP (XWINDOW (window)->next))
+	    other = lower = XWINDOW (window)->next, upper = window;
+	  if (!NILP (other)
+	      /* Check that OTHER and WINDOW are vertically arrayed.  */
+	      && XWINDOW (other)->top != XWINDOW (window)->top
+	      && XWINDOW (other)->height > XWINDOW (window)->height)
+	    {
+	      int total = XWINDOW (other)->height + XWINDOW (window)->height;
+	      struct window *old_selected_window = selected_window;
+
+	      selected_window = XWINDOW (upper);
+	      change_window_height (total / 2 - XWINDOW (upper)->height, 0);
+	      selected_window = old_selected_window;
+	    }
 	}
     }
   else