Mercurial > emacs
comparison lisp/window.el @ 32736:2f62b75a643d
(window-text-height): Don't expect minibuffers to have mode-lines.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 22 Oct 2000 04:18:14 +0000 |
| parents | 7d93bad80655 |
| children | 29a87f28cd51 |
comparison
equal
deleted
inserted
replaced
| 32735:602b32e73777 | 32736:2f62b75a643d |
|---|---|
| 336 return an inaccurate value, but attempts to be conservative, by | 336 return an inaccurate value, but attempts to be conservative, by |
| 337 returning fewer lines than actually exist in the case where the real | 337 returning fewer lines than actually exist in the case where the real |
| 338 value cannot be determined." | 338 value cannot be determined." |
| 339 (with-current-buffer (window-buffer window) | 339 (with-current-buffer (window-buffer window) |
| 340 (- (window-height window) | 340 (- (window-height window) |
| 341 (if mode-line-format | 341 (if (and (not (window-minibuffer-p window)) |
| 342 mode-line-format) | |
| 342 (1+ (mode-line-window-height-fudge)) | 343 (1+ (mode-line-window-height-fudge)) |
| 343 0) | 344 0) |
| 344 (if header-line-format | 345 (if header-line-format |
| 345 (1+ (mode-line-window-height-fudge 'header-line)) | 346 (1+ (mode-line-window-height-fudge 'header-line)) |
| 346 0)))) | 347 0)))) |