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

(resize-temp-buffer-window): Use `fit-window-to-buffer'.

parent 65e742bd
2000-10-21 Miles Bader <miles@gnu.org>
* window.el (fit-window-to-buffer): New function.
(shrink-window-if-larger-than-buffer): Use it.
* help.el (resize-temp-buffer-window): Use `fit-window-to-buffer'.
* international/quail.el (quail-show-guidance-buf): Make sure
guidance window really has enough room.
(quail-update-guidance): If quail-guidance-win is already shown,
......
......@@ -1463,13 +1463,11 @@ out of view."
(unless (or (one-window-p 'nomini)
(not (pos-visible-in-window-p (point-min)))
(/= (frame-width) (window-width)))
(let* ((max-height (if (functionp temp-buffer-max-height)
(funcall temp-buffer-max-height (current-buffer))
temp-buffer-max-height))
(min-height (1- window-min-height))
(text-height (count-screen-lines))
(new-height (max (min text-height max-height) min-height)))
(set-window-text-height nil new-height))))
(fit-window-to-buffer
(selected-window)
(if (functionp temp-buffer-max-height)
(funcall temp-buffer-max-height (current-buffer))
temp-buffer-max-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