Mercurial > emacs

changeset 95910:e2798b886edf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(window--even-window-heights): Even window heights only if the selected window is higher than WINDOW.
author Martin Rudalics <rudalics@gmx.at>
date Sat, 14 Jun 2008 08:58:07 +0000
parents fcc6d97140b3
children dd0b776b5331
files lisp/window.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)))