Mercurial > emacs
comparison lisp/help.el @ 28654:1d7862b7e02d
(resize-temp-buffer-window): Use count-screen-lines.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 19 Apr 2000 19:07:29 +0000 |
| parents | a48f25d316ff |
| children | 74b19c6efdd1 |
comparison
equal
deleted
inserted
replaced
| 28653:a67ae6612ddb | 28654:1d7862b7e02d |
|---|---|
| 1336 (let* ((max-height (if (functionp temp-buffer-max-height) | 1336 (let* ((max-height (if (functionp temp-buffer-max-height) |
| 1337 (funcall temp-buffer-max-height (current-buffer)) | 1337 (funcall temp-buffer-max-height (current-buffer)) |
| 1338 temp-buffer-max-height)) | 1338 temp-buffer-max-height)) |
| 1339 (win-height (1- (window-height))) | 1339 (win-height (1- (window-height))) |
| 1340 (min-height (1- window-min-height)) | 1340 (min-height (1- window-min-height)) |
| 1341 (text-height (window-buffer-height(selected-window))) | 1341 (text-height (count-screen-lines)) |
| 1342 (new-height (max (min text-height max-height) min-height))) | 1342 (new-height (max (min text-height max-height) min-height))) |
| 1343 (enlarge-window (- new-height win-height))))) | 1343 (enlarge-window (- new-height win-height))))) |
| 1344 | 1344 |
| 1345 ;; `help-manyarg-func-alist' is defined primitively (in doc.c). | 1345 ;; `help-manyarg-func-alist' is defined primitively (in doc.c). |
| 1346 ;; New primitives with `MANY' or `UNEVALLED' arglists should be added | 1346 ;; New primitives with `MANY' or `UNEVALLED' arglists should be added |