# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1106441612 0
# Node ID 815c3e98edef5513b58d37ace4237f4abbe9f847
# Parent  3c5cc02ff90e14312c862f75d377c3e87e58d688
(line-move): Fix last change.  Check partial
visibility at point rather than at window-start.

diff -r 3c5cc02ff90e -r 815c3e98edef lisp/simple.el
--- a/lisp/simple.el	Sun Jan 23 00:53:10 2005 +0000
+++ b/lisp/simple.el	Sun Jan 23 00:53:32 2005 +0000
@@ -3183,7 +3183,7 @@
 (defun line-move (arg &optional noerror to-end)
   (if auto-window-vscroll
       (let ((forward (> arg 0))
-	    (pvis (pos-visible-in-window-p (window-start) nil t)))
+	    (pvis (pos-visible-in-window-p (point) nil t)))
 	(if (and pvis (null (nth 2 pvis))
 		 (> (nth (if forward 4 3) pvis) 0))
 	    (set-window-vscroll nil