From 106f594c71db66d9f17a98f02c3c9f807e54eec5 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sat, 14 Jun 2008 08:58:56 +0000 Subject: [PATCH] (window--even-window-heights): Even window heights only if the selected window is higher than WINDOW. --- lisp/ChangeLog | 7 +++++++ lisp/window.el | 5 +++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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))) -- 2.39.2