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

instead of `enlarge-window' & `mode-line-window-height-fudge'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4fab07a0c1e404224f063c431a82dc5978e4b330..953077af4ac8042cfaec8e7ea713a083db8fa339 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2000-10-21  Miles Bader  <miles@gnu.org>
+
+       * 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  <miles@gnu.org>
 
        * window.el (height-affecting-face-attributes): Use `defconst'.

diff --git a/lisp/help.el b/lisp/help.el
index a607d81511ba8ea9794e4d00ee077073999fc02b..adbe12e6ae92bd0fd20a21f2b305e2dac11e19ce 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1466,13 +1466,10 @@ out of view."
     (let* ((max-height (if (functionp temp-buffer-max-height)
                            (funcall temp-buffer-max-height (current-buffer))
                          temp-buffer-max-height))
-           (win-height (- (window-height)
-                         (mode-line-window-height-fudge)
-                         1))
            (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