3541 |
;; Compute the end of the line |
;; Compute the end of the line |
3542 |
;; ignoring effectively invisible newlines. |
;; ignoring effectively invisible newlines. |
3543 |
(save-excursion |
(save-excursion |
3544 |
(end-of-line) |
;; Like end-of-line but ignores fields. |
3545 |
|
(skip-chars-forward "^\n") |
3546 |
(while (and (not (eobp)) (line-move-invisible-p (point))) |
(while (and (not (eobp)) (line-move-invisible-p (point))) |
3547 |
(goto-char (next-char-property-change (point))) |
(goto-char (next-char-property-change (point))) |
3548 |
(end-of-line)) |
(skip-chars-forward "^\n")) |
3549 |
(point)))) |
(point)))) |
3550 |
|
|
3551 |
;; Move to the desired column. |
;; Move to the desired column. |