]> code.delx.au - gnu-emacs/blobdiff - src/window.c
Merge from emacs--devo--0
[gnu-emacs] / src / window.c
index 8e75ef7f5d23a583e2b216cf7143003ed5d7a2ec..59b70152b0983f3673e9ebbad32086f8fc272aa4 100644 (file)
@@ -3750,7 +3750,7 @@ displayed.  */)
        window = Fsplit_window (window, Qnil, Qnil);
       else
        {
-         Lisp_Object upper, lower, other;
+         Lisp_Object upper, other;
 
          window = Fget_lru_window (frames, Qt);
          /* If the LRU window is tall enough, and either eligible for splitting
@@ -3789,11 +3789,11 @@ displayed.  */)
            window = Fframe_selected_window (call0 (Vpop_up_frame_function));
          /* If window appears above or below another,
             even out their heights.  */
-         other = upper = lower = Qnil;
+         other = upper = Qnil;
          if (!NILP (XWINDOW (window)->prev))
-           other = upper = XWINDOW (window)->prev, lower = window;
+           other = upper = XWINDOW (window)->prev;
          if (!NILP (XWINDOW (window)->next))
-           other = lower = XWINDOW (window)->next, upper = window;
+           other = XWINDOW (window)->next, upper = window;
          if (!NILP (other)
              && !NILP (Veven_window_heights)
              /* Check that OTHER and WINDOW are vertically arrayed.  */