[Emacs-diffs] Changes to emacs/lisp/simple.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/08/03 14:26:28

Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.809
retrieving revision 1.810
diff -u -b -r1.809 -r1.810
--- simple.el   11 Jul 2006 18:41:53 -0000      1.809
+++ simple.el   3 Aug 2006 14:26:27 -0000       1.810
@@ -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))))