Commit b86c791c authored by Miles Bader's avatar Miles Bader
Browse files

(resize-temp-buffer-window): Use `set-window-text-height'

instead of `enlarge-window' & `mode-line-window-height-fudge'.
parent 361691dc
2000-10-21 Miles Bader <>
* window.el (window-text-height, set-window-text-height):
New functions.
(shrink-window-if-larger-than-buffer): Use `window-text-height'
instead of `window-height' & `mode-line-window-height-fudge'.
(mode-line-window-height-fudge): Add FACE parameter.
* help.el (resize-temp-buffer-window): Use `set-window-text-height'
instead of `enlarge-window' & `mode-line-window-height-fudge'.
2000-10-20 Miles Bader <>
* window.el (height-affecting-face-attributes): Use `defconst'.
......@@ -1466,13 +1466,10 @@ out of view."
(let* ((max-height (if (functionp temp-buffer-max-height)
(funcall temp-buffer-max-height (current-buffer))
(win-height (- (window-height)
(min-height (1- window-min-height))
(text-height (count-screen-lines))
(new-height (max (min text-height max-height) min-height)))
(enlarge-window (- new-height win-height)))))
(set-window-text-height nil new-height))))
;; `help-manyarg-func-alist' is defined primitively (in doc.c).
;; New primitives with `MANY' or `UNEVALLED' arglists should be added
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