Mercurial > emacs

comparison lisp/window.el @ 11029:3f98c129f7bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(balance-windows): Ignore minibuffer window when browsing the `levels'.
author Richard M. Stallman <rms@gnu.org>
date Wed, 15 Mar 1995 23:06:57 +0000
parents 2c55ff956862
children 22693a280a42
comparison
equal deleted inserted replaced
11028:123bb3f2d018 11029:3f98c129f7bc
63 (nth 1 (window-edges))) 63 (nth 1 (window-edges)))
64 levels)) 64 levels))
65 count))) 65 count)))
66 (setq newsizes 66 (setq newsizes
67 (cons (cons w (* size (- newbot newtop))) 67 (cons (cons w (* size (- newbot newtop)))
68 newsizes)))))) 68 newsizes)))))
69 'nomini)
69 (walk-windows (function (lambda (w) 70 (walk-windows (function (lambda (w)
70 (select-window w) 71 (select-window w)
71 (let ((newsize (cdr (assq w newsizes)))) 72 (let ((newsize (cdr (assq w newsizes))))
72 (enlarge-window (- newsize 73 (enlarge-window (- newsize
73 (window-height)))))) 74 (window-height))))))