From: Miles Bader <miles@gnu.org>
Date: Sat, 21 Oct 2000 05:40:19 +0000 (+0000)
Subject: (resize-temp-buffer-window): Use `fit-window-to-buffer'.
X-Git-Tag: emacs-pretest-21.0.90~714
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9c30bdf7f12f3201c767e1f6890fb6bf1c480e6;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 619bffa8db0..42eebf899ff 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 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,
diff --git a/lisp/help.el b/lisp/help.el
index adbe12e6ae9..aa3e7c42e32 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -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