Mercurial > emacs
comparison lisp/simple.el @ 45730:93ebda6f1155
(line-move-finish): Inhibit field motion when computing `line-end'.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 10 Jun 2002 08:04:48 +0000 |
parents | f749c4851f51 |
children | 8da973b0df20 |
comparison
equal
deleted
inserted
replaced
45729:91b90aef166c | 45730:93ebda6f1155 |
---|---|
2666 (let (new | 2666 (let (new |
2667 (line-beg (save-excursion (beginning-of-line) (point))) | 2667 (line-beg (save-excursion (beginning-of-line) (point))) |
2668 (line-end | 2668 (line-end |
2669 ;; Compute the end of the line | 2669 ;; Compute the end of the line |
2670 ;; ignoring effectively intangible newlines. | 2670 ;; ignoring effectively intangible newlines. |
2671 (let ((inhibit-point-motion-hooks nil)) | 2671 (let ((inhibit-point-motion-hooks nil) |
2672 (inhibit-field-text-motion t)) | |
2672 (save-excursion (end-of-line) (point))))) | 2673 (save-excursion (end-of-line) (point))))) |
2673 | 2674 |
2674 ;; Move to the desired column. | 2675 ;; Move to the desired column. |
2675 (line-move-to-column column) | 2676 (line-move-to-column column) |
2676 (setq new (point)) | 2677 (setq new (point)) |