Mercurial > emacs

diff lisp/simple.el @ 72254:42b0c9d6a376

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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))))