Mercurial > emacs
changeset 13523:75c6a5e1ee7a
(balance-windows): Don't count the menu bar's lines in the frame height.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 11 Nov 1995 23:51:44 +0000 |
| parents | 6a97ea1245b5 |
| children | 0d24a33d8bba |
| files | lisp/window.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/window.el Sat Nov 11 23:50:10 1995 +0000 +++ b/lisp/window.el Sat Nov 11 23:51:44 1995 +0000 @@ -98,7 +98,10 @@ (defun balance-windows () "Makes all visible windows the same height (approximately)." (interactive) - (let ((count -1) levels newsizes size) + (let ((count -1) levels newsizes size + ;; Don't count the lines that are above the uppermost windows. + ;; (These are the menu bar lines, if any.) + (mbl (nth 1 (window-edges (frame-first-window (selected-frame)))))) ;; Find all the different vpos's at which windows start, ;; then count them. But ignore levels that differ by only 1. (save-window-excursion @@ -116,7 +119,7 @@ (setq tops (cdr tops))) (setq count (1+ count)))) ;; Subdivide the frame into that many vertical levels. - (setq size (/ (frame-height) count)) + (setq size (/ (- (frame-height) mbl) count)) (walk-windows (function (lambda (w) (select-window w)