Mercurial > emacs
comparison lisp/help.el @ 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 | 85cf11e21bd1 |
children | 54f6c0860704 |
comparison
equal
deleted
inserted
replaced
32681:569ef1445e17 | 32682:e58e4340d7e0 |
---|---|
1464 (not (pos-visible-in-window-p (point-min))) | 1464 (not (pos-visible-in-window-p (point-min))) |
1465 (/= (frame-width) (window-width))) | 1465 (/= (frame-width) (window-width))) |
1466 (let* ((max-height (if (functionp temp-buffer-max-height) | 1466 (let* ((max-height (if (functionp temp-buffer-max-height) |
1467 (funcall temp-buffer-max-height (current-buffer)) | 1467 (funcall temp-buffer-max-height (current-buffer)) |
1468 temp-buffer-max-height)) | 1468 temp-buffer-max-height)) |
1469 (win-height (1- (window-height))) | 1469 (win-height (- (window-height) |
1470 (mode-line-window-height-fudge) | |
1471 1)) | |
1470 (min-height (1- window-min-height)) | 1472 (min-height (1- window-min-height)) |
1471 (text-height (count-screen-lines)) | 1473 (text-height (count-screen-lines)) |
1472 (new-height (max (min text-height max-height) min-height))) | 1474 (new-height (max (min text-height max-height) min-height))) |
1473 (when (display-graphic-p) | |
1474 ;; This egregious hack is because mode-lines on graphics | |
1475 ;; displays often use faces that make them more than one `line' | |
1476 ;; high, and so obscure the last line of the window proper. | |
1477 (setq win-height (1- win-height))) | |
1478 (enlarge-window (- new-height win-height))))) | 1475 (enlarge-window (- new-height win-height))))) |
1479 | 1476 |
1480 ;; `help-manyarg-func-alist' is defined primitively (in doc.c). | 1477 ;; `help-manyarg-func-alist' is defined primitively (in doc.c). |
1481 ;; New primitives with `MANY' or `UNEVALLED' arglists should be added | 1478 ;; New primitives with `MANY' or `UNEVALLED' arglists should be added |
1482 ;; to this alist. | 1479 ;; to this alist. |