(window--even-window-heights): Even window heights

only if the selected window is higher than WINDOW.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fa5da5c14353aa7894f1fa4f1d7dd80f22d13587..d6fbb22e0c69313bdc6a8810e7403535870dcbc8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-06-14  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (window--even-window-heights): Even window heights
+       only if the selected window is higher than WINDOW.
+       Reported by Stephen Berman <Stephen.Berman at gmx.net>.
+
 2008-06-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * info.el (Info-insert-breadcrumbs): Be careful to preserve history.
@@ -299,6 +305,7 @@
 
        * window.el (window--splittable-p, window--try-to-split-window):
        Don't use with-selected-window to avoid messing up get-lru-window.
+       Reported by David Hansen <david.hansen@gmx.net>.
 
 2008-06-10  Glenn Morris  <rgm@gnu.org>
 

diff --git a/lisp/window.el b/lisp/window.el
index 3cdc99e2651f46b9783f8a459b0ebc78db0b57bc..ccb2e2422668da07e8a95c1f1d016b5586724586 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -879,12 +879,13 @@ window that appears above or below the selected window."
 (defun window--even-window-heights (window)
   "Even heights of window WINDOW and selected window.
 Do this only if these windows are vertically adjacent to each
-other and `even-window-heights' is non-nil."
+other, `even-window-heights' is non-nil, and the selected window
+is higher than WINDOW."
   (when (and even-window-heights
             (not (eq window (selected-window)))
             ;; Don't resize minibuffer windows.
             (not (window-minibuffer-p (selected-window)))
-            (/= (window-height (selected-window)) (window-height window)) 
+            (> (window-height (selected-window)) (window-height window)) 
             (eq (window-frame window) (window-frame (selected-window)))
             (let ((sel-edges (window-edges (selected-window)))
                   (win-edges (window-edges window)))