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)) |