Mercurial > emacs
comparison lisp/window.el @ 56588:79a8fffd55e9
(window-buffer-height): Call compute-motion with nil width.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 02 Aug 2004 15:20:18 +0000 |
| parents | fa07df089602 |
| children | 9672303dbf4f 0bdb5a16ae51 |
comparison
equal
deleted
inserted
replaced
| 56587:c3fcca92bfd9 | 56588:79a8fffd55e9 |
|---|---|
| 406 (and (not (eobp)) (eq ?\n (char-after (1- (point-max))))))) | 406 (and (not (eobp)) (eq ?\n (char-after (1- (point-max))))))) |
| 407 (+ 1 (nth 2 (compute-motion (point-min) | 407 (+ 1 (nth 2 (compute-motion (point-min) |
| 408 '(0 . 0) | 408 '(0 . 0) |
| 409 (- (point-max) (if ignore-final-newline 1 0)) | 409 (- (point-max) (if ignore-final-newline 1 0)) |
| 410 (cons 0 100000000) | 410 (cons 0 100000000) |
| 411 (window-width window) | 411 nil |
| 412 nil | 412 nil |
| 413 window)))))) | 413 window)))))) |
| 414 | 414 |
| 415 (defun count-screen-lines (&optional beg end count-final-newline window) | 415 (defun count-screen-lines (&optional beg end count-final-newline window) |
| 416 "Return the number of screen lines in the region. | 416 "Return the number of screen lines in the region. |