From: Miles Bader Date: Fri, 20 Oct 2000 15:19:04 +0000 (+0000) Subject: (resize-temp-buffer-window): Use `set-window-text-height' X-Git-Tag: emacs-pretest-21.0.90~725 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b86c791c0fce7721bee869de8d7158a824c74dc7;p=emacs.git (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 4fab07a0c1e..953077af4ac 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +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'. diff --git a/lisp/help.el b/lisp/help.el index a607d81511b..adbe12e6ae9 100644 --- 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