From: Martin Rudalics Date: Sat, 14 Jun 2008 08:58:56 +0000 (+0000) Subject: (window--even-window-heights): Even window heights X-Git-Tag: emacs-pretest-23.0.90~4803 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=106f594c71db66d9f17a98f02c3c9f807e54eec5;p=emacs.git (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 fa5da5c1435..d6fbb22e0c6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-06-14 Martin Rudalics + + * window.el (window--even-window-heights): Even window heights + only if the selected window is higher than WINDOW. + Reported by Stephen Berman . + 2008-06-14 Stefan Monnier * 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 . 2008-06-10 Glenn Morris diff --git a/lisp/window.el b/lisp/window.el index 3cdc99e2651..ccb2e242266 100644 --- 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)))