Commit 106f594c authored by Martin Rudalics's avatar Martin Rudalics
Browse files

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

only if the selected window is higher than WINDOW.
parent 159dfdde
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>
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment