(line-move-finish): Ignore fields computing LINE-END.

This commit is contained in:
Richard M. Stallman 2005-10-23 18:26:38 +00:00
parent 01ae35c122
commit a5b4a6a043

View file

@ -3541,10 +3541,11 @@ Outline mode sets this."
;; 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.