Mercurial > emacs
diff lisp/simple.el @ 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 | 205070e11ae3 |
children | b11613448626 |
line wrap: on
line diff
--- 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))))