# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1106486896 0
# Node ID 5f125540565b2e5be94c0135ab237cf91317853b
# Parent  c401b93db575447b9a4f6d15388bd886b9edc9d8
* simple.el (line-move): Adapt to new return value from
pos-visible-in-window-p.

diff -r c401b93db575 -r 5f125540565b lisp/simple.el
--- a/lisp/simple.el	Sun Jan 23 13:13:03 2005 +0000
+++ b/lisp/simple.el	Sun Jan 23 13:28:16 2005 +0000
@@ -3183,17 +3183,17 @@
 (defun line-move (arg &optional noerror to-end)
   (if auto-window-vscroll
       (let ((forward (> arg 0))
-	    (pvis (pos-visible-in-window-p (point) nil t)))
-	(if (and pvis (null (nth 2 pvis))
-		 (> (nth (if forward 4 3) pvis) 0))
+	    (part (nth 2 (pos-visible-in-window-p (point) nil t))))
+	(if (and (consp part)
+		 (> (setq part (if forward (cdr part) (car part))) 0))
 	    (set-window-vscroll nil
 				(if forward
 				    (+ (window-vscroll nil t)
-				       (min (nth 4 pvis)
+				       (min part
 					    (* (frame-char-height) arg)))
 				  (max 0
 				       (- (window-vscroll nil t)
-					  (min (nth 3 pvis)
+					  (min part
 					       (* (frame-char-height) (- arg))))))
 				t)
 	  (set-window-vscroll nil 0)