Mercurial > emacs
comparison lisp/simple.el @ 66346:37f27a66c519
(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 | 3213e48ea8b3 |
children | 436739baf9f1 |
comparison
equal
deleted
inserted
replaced
66345:27a95070b049 | 66346:37f27a66c519 |
---|---|
3539 (line-beg (save-excursion (beginning-of-line) (point))) | 3539 (line-beg (save-excursion (beginning-of-line) (point))) |
3540 (line-end | 3540 (line-end |
3541 ;; Compute the end of the line | 3541 ;; Compute the end of the line |
3542 ;; ignoring effectively invisible newlines. | 3542 ;; ignoring effectively invisible newlines. |
3543 (save-excursion | 3543 (save-excursion |
3544 (end-of-line) | 3544 ;; Like end-of-line but ignores fields. |
3545 (skip-chars-forward "^\n") | |
3545 (while (and (not (eobp)) (line-move-invisible-p (point))) | 3546 (while (and (not (eobp)) (line-move-invisible-p (point))) |
3546 (goto-char (next-char-property-change (point))) | 3547 (goto-char (next-char-property-change (point))) |
3547 (end-of-line)) | 3548 (skip-chars-forward "^\n")) |
3548 (point)))) | 3549 (point)))) |
3549 | 3550 |
3550 ;; Move to the desired column. | 3551 ;; Move to the desired column. |
3551 (line-move-to-column column) | 3552 (line-move-to-column column) |
3552 (setq new (point)) | 3553 (setq new (point)) |