Mercurial > emacs
changeset 72922:e5dae51e141c
* simple.el (line-move-to-column): Revert 2006-08-03 change.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 16 Sep 2006 14:14:53 +0000 |
| parents | 38d3708f31ff |
| children | 32eea9088623 |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Sep 16 10:45:38 2006 +0000 +++ b/lisp/ChangeLog Sat Sep 16 14:14:53 2006 +0000 @@ -1,3 +1,7 @@ +2006-09-16 Chong Yidong <cyd@stupidchicken.com> + + * simple.el (line-move-to-column): Revert 2006-08-03 change. + 2006-09-16 Eli Zaretskii <eliz@gnu.org> * help.el (describe-prefix-bindings): Use let, not let*.
--- a/lisp/simple.el Sat Sep 16 10:45:38 2006 +0000 +++ b/lisp/simple.el Sat Sep 16 14:14:53 2006 +0000 @@ -3645,6 +3645,9 @@ ;; This is the value the function returns. (= arg 0)) + (setq foo (list (point) + (or goal-column temporary-goal-column) + opoint forward)) (cond ((> arg 0) ;; If we did not move down as far as desired, ;; at least go to end of line. @@ -3678,6 +3681,7 @@ ;; Move to the desired column. (line-move-to-column column) + (push (list (point) line-beg line-end) foo) (setq new (point)) ;; Process intangibility within a line. @@ -3733,10 +3737,7 @@ and `current-column' to be able to ignore invisible text." (if (zerop col) (beginning-of-line) - (let ((opoint (point))) - (move-to-column col) - ;; move-to-column doesn't respect field boundaries. - (goto-char (constrain-to-field (point) opoint)))) + (move-to-column col)) (when (and line-move-ignore-invisible (not (bolp)) (line-move-invisible-p (1- (point))))