Mercurial > emacs
comparison lisp/help.el @ 32690:54f6c0860704
(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 | e58e4340d7e0 |
children | 605eabd04a57 |
comparison
equal
deleted
inserted
replaced
32689:9f29610841ca | 32690:54f6c0860704 |
---|---|
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 (- (window-height) | |
1470 (mode-line-window-height-fudge) | |
1471 1)) | |
1472 (min-height (1- window-min-height)) | 1469 (min-height (1- window-min-height)) |
1473 (text-height (count-screen-lines)) | 1470 (text-height (count-screen-lines)) |
1474 (new-height (max (min text-height max-height) min-height))) | 1471 (new-height (max (min text-height max-height) min-height))) |
1475 (enlarge-window (- new-height win-height))))) | 1472 (set-window-text-height nil new-height)))) |
1476 | 1473 |
1477 ;; `help-manyarg-func-alist' is defined primitively (in doc.c). | 1474 ;; `help-manyarg-func-alist' is defined primitively (in doc.c). |
1478 ;; New primitives with `MANY' or `UNEVALLED' arglists should be added | 1475 ;; New primitives with `MANY' or `UNEVALLED' arglists should be added |
1479 ;; to this alist. | 1476 ;; to this alist. |
1480 ;; The parens and function name are redundant, but it's messy to add | 1477 ;; The parens and function name are redundant, but it's messy to add |