Mercurial > emacs
changeset 72254:42b0c9d6a376
* simple.el (line-move-to-column): Constrain move-to-column to
current field.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 03 Aug 2006 14:26:27 +0000 |
| parents | 27bf187aaf90 |
| children | a4cd71253e87 |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Aug 03 10:14:49 2006 +0000 +++ b/lisp/ChangeLog Thu Aug 03 14:26:27 2006 +0000 @@ -1,3 +1,8 @@ +2006-08-03 Chong Yidong <cyd@stupidchicken.com> + + * simple.el (line-move-to-column): Constrain move-to-column to + current field. + 2006-08-03 Stefan Monnier <monnier@iro.umontreal.ca> * font-lock.el (font-lock-beg, font-lock-end)
--- a/lisp/simple.el Thu Aug 03 10:14:49 2006 +0000 +++ b/lisp/simple.el Thu Aug 03 14:26:27 2006 +0000 @@ -3697,7 +3697,10 @@ and `current-column' to be able to ignore invisible text." (if (zerop col) (beginning-of-line) - (move-to-column col)) + (let ((opoint (point))) + (move-to-column col) + ;; move-to-column doesn't respect field boundaries. + (goto-char (constrain-to-field (point) opoint)))) (when (and line-move-ignore-invisible (not (bolp)) (line-move-invisible-p (1- (point))))