Commit 3511cde8 authored by Miles Bader's avatar Miles Bader
Browse files

(fit-window-to-buffer): Change defaulting of MAX-HEIGHT slightly.

parent 582b0985
2000-10-22 Miles Bader <miles@gnu.org>
* window.el (fit-window-to-buffer): Change defaulting of
MAX-HEIGHT slightly.
* faces.el (color-values, color-defined-p): Use `member', not
`memq', because it works correctly for strings.
(frame-set-background-mode): Actually, "unspecified-fg" and
......
......@@ -442,6 +442,8 @@ header-line."
(when (null window)
(setq window (selected-window)))
(when (null max-height)
(setq max-height (frame-height (window-frame window))))
(let* ((window-height
;; The current height of WINDOW
......@@ -458,11 +460,7 @@ header-line."
(delta
;; Calculate how much the window height has to change to show
;; text-height lines, constrained by MIN-HEIGHT and MAX-HEIGHT.
(- (max (min (+ text-height extra)
(or max-height
(frame-height
(window-frame
(or window (selected-window))))))
(- (max (min (+ text-height extra) max-height)
(or min-height window-min-height))
window-height))
;; We do our own height checking, so avoid any restrictions due to
......
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