Mercurial > emacs

changeset 66346:37f27a66c519

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(line-move-finish): Ignore fields computing LINE-END.
author Richard M. Stallman <rms@gnu.org>
date Sun, 23 Oct 2005 18:26:38 +0000
parents 27a95070b049
children 4eb490f3e33b
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.