Mercurial > emacs

changeset 32690:54f6c0860704

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(resize-temp-buffer-window): Use `set-window-text-height' instead of `enlarge-window' & `mode-line-window-height-fudge'.
author Miles Bader <miles@gnu.org>
date Fri, 20 Oct 2000 15:17:48 +0000
parents 9f29610841ca
children 14c36c7829ff
files lisp/help.el
diffstat 1 files changed, 1 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Fri Oct 20 15:16:46 2000 +0000
+++ b/lisp/help.el	Fri Oct 20 15:17:48 2000 +0000
@@ -1466,13 +1466,10 @@
     (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