# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1233985887 0
# Node ID 0750b250db3dc941c17bebe563763b7abada839c
# Parent  0ab814511c6071bc68a14bb6e8f3b9fef71c081c
(line-move-visual): Handle overflow-newline-into-fringe.

diff -r 0ab814511c60 -r 0750b250db3d lisp/simple.el
--- a/lisp/simple.el	Sat Feb 07 05:50:44 2009 +0000
+++ b/lisp/simple.el	Sat Feb 07 05:51:27 2009 +0000
@@ -4035,9 +4035,12 @@
 	       (or (memq last-command '(next-line previous-line))
 		   ;; In case we're called from some other command.
 		   (eq last-command this-command)))
-    (let ((x (car (nth 2 (posn-at-point)))))
-      (when x
-	(setq temporary-goal-column (/ (float x) (frame-char-width))))))
+    (let ((posn (posn-at-point))
+	  x)
+      (cond ((eq (nth 1 posn) 'right-fringe) ; overflow-newline-into-fringe
+	     (setq temporary-goal-column (- (window-width) 1)))
+	    ((setq x (car (nth 2 posn)))
+	     (setq temporary-goal-column (/ (float x) (frame-char-width)))))))
   (or (= (vertical-motion
 	  (cons (or goal-column (truncate temporary-goal-column)) arg))
 	 arg)