mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(balance-windows): Don't count the menu bar's lines in the frame height.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-11-11 23:51:44 +00:00
parent a1aaa23f9f
commit 3ca9dd8d9f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/window.el
View File

@ -98,7 +98,10 @@ even if it is active."
(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 @@ even if it is active."
(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)