# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1130091998 0
# Node ID 37f27a66c5193694d202bf51a3dcaf158547273c
# Parent  27a95070b049b66f8d93f9c606279269ad8d7a5b
(line-move-finish): Ignore fields computing LINE-END.

diff -r 27a95070b049 -r 37f27a66c519 lisp/simple.el
--- a/lisp/simple.el	Sun Oct 23 18:24:00 2005 +0000
+++ b/lisp/simple.el	Sun Oct 23 18:26:38 2005 +0000
@@ -3541,10 +3541,11 @@
 	     ;; Compute the end of the line
 	     ;; ignoring effectively invisible newlines.
 	     (save-excursion
-	       (end-of-line)
+	       ;; Like end-of-line but ignores fields.
+	       (skip-chars-forward "^\n")
 	       (while (and (not (eobp)) (line-move-invisible-p (point)))
 		 (goto-char (next-char-property-change (point)))
-		 (end-of-line))
+		 (skip-chars-forward "^\n"))
 	       (point))))
 
 	;; Move to the desired column.