procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
only if the selected window is higher than WINDOW.
This commit is contained in:
Martin Rudalics 2008-06-14 08:58:56 +00:00
parent 159dfddecb
commit 106f594c71
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
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>

5
lisp/window.el
View file

@ -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)))