(line-move-visual): Handle overflow-newline-into-fringe.

1 files changed, 6 insertions, 3 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 8410d625fc3..950d7f0730d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4035,9 +4035,12 @@ into account variable-width characters and line continuation."
                (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)