Mercurial > emacs
changeset 32682:e58e4340d7e0
(resize-temp-buffer-window): Use `mode-line-window-height-fudge'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 20 Oct 2000 09:22:30 +0000 |
| parents | 569ef1445e17 |
| children | a676a998c839 |
| files | lisp/help.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Fri Oct 20 09:21:59 2000 +0000 +++ b/lisp/help.el Fri Oct 20 09:22:30 2000 +0000 @@ -1466,15 +1466,12 @@ (let* ((max-height (if (functionp temp-buffer-max-height) (funcall temp-buffer-max-height (current-buffer)) temp-buffer-max-height)) - (win-height (1- (window-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))) - (when (display-graphic-p) - ;; This egregious hack is because mode-lines on graphics - ;; displays often use faces that make them more than one `line' - ;; high, and so obscure the last line of the window proper. - (setq win-height (1- win-height))) (enlarge-window (- new-height win-height))))) ;; `help-manyarg-func-alist' is defined primitively (in doc.c).