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 |