# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1117842501 0
# Node ID 5378f1ac43f4279dfbd36cf1071968d493810aac
# Parent  dec671a871738221df8899a7ae228e9c51a2a2c0
(line-move): Only call sit-for when moving backwards.

diff -r dec671a87173 -r 5378f1ac43f4 lisp/simple.el
--- a/lisp/simple.el	Fri Jun 03 23:47:56 2005 +0000
+++ b/lisp/simple.el	Fri Jun 03 23:48:21 2005 +0000
@@ -3351,25 +3351,25 @@
       (let ((forward (> arg 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))
+		 (> (if forward (cdr part) (car part)) 0))
 	    (set-window-vscroll nil
 				(if forward
 				    (+ (window-vscroll nil t)
-				       (min part
+				       (min (cdr part)
 					    (* (frame-char-height) arg)))
 				  (max 0
 				       (- (window-vscroll nil t)
-					  (min part
+					  (min (car part)
 					       (* (frame-char-height) (- arg))))))
 				t)
 	  (set-window-vscroll nil 0)
 	  (when (line-move-1 arg noerror to-end)
-	    (sit-for 0)
-	    (if (and (not forward)
-		     (setq part (nth 2 (pos-visible-in-window-p
-					(line-beginning-position) nil t)))
-		     (> (cdr part) 0))
-		(set-window-vscroll nil (cdr part) t))
+	    (when (not forward)
+	      (sit-for 0)
+	      (if (and (setq part (nth 2 (pos-visible-in-window-p
+					  (line-beginning-position) nil t)))
+		       (> (cdr part) 0))
+		  (set-window-vscroll nil (cdr part) t)))
 	    t)))
     (line-move-1 arg noerror to-end)))