# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1213433887 0
# Node ID e2798b886edf02371dff756ec4071fe9bb2e45bd
# Parent  fcc6d97140b3d6b6c61ec165fde363d21a6cc3b7
(window--even-window-heights): Even window heights
only if the selected window is higher than WINDOW.

diff -r fcc6d97140b3 -r e2798b886edf lisp/window.el
--- a/lisp/window.el	Sat Jun 14 01:59:21 2008 +0000
+++ b/lisp/window.el	Sat Jun 14 08:58:07 2008 +0000
@@ -879,12 +879,13 @@
 (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)))