Mercurial > emacs
changeset 73014:c44b9d4a6bf6
(line-move-partial): Call pos-visible-in-window-p with
position t instead of trying both window-end and window-end - 1.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 20 Sep 2006 09:45:19 +0000 |
| parents | 6ebbc42247b3 |
| children | 7f83cbc52b4e |
| files | lisp/simple.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Sep 20 09:43:25 2006 +0000 +++ b/lisp/simple.el Wed Sep 20 09:45:19 2006 +0000 @@ -3496,11 +3496,9 @@ (>= rbot (frame-char-height)) (<= ypos (- (frame-char-height)))) (unless lh - (let* ((wend (window-end nil t)) - (evis (or (pos-visible-in-window-p wend nil t) - (pos-visible-in-window-p (1- wend) nil t)))) - (setq rbot (nth 3 evis) - vpos (nth 5 evis)))) + (let ((wend (pos-visible-in-window-p t nil t))) + (setq rbot (nth 3 wend) + vpos (nth 5 wend)))) (cond ;; If last line of window is fully visible, move forward. ((or (null rbot) (= rbot 0))