From: Kim F. Storm <storm@cua.dk>
Date: Wed, 20 Sep 2006 09:45:19 +0000 (+0000)
Subject: (line-move-partial): Call pos-visible-in-window-p with
X-Git-Tag: emacs-pretest-22.0.90~438
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e7a5039b92c43e3e80d36b933959f319a16a534;p=emacs.git

(line-move-partial): Call pos-visible-in-window-p with
position t instead of trying both window-end and window-end - 1.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 8f954c281a1..1d1e34c77e3 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3496,11 +3496,9 @@ Outline mode sets this."
 		(>= 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))