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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/09/16 14:14:53

Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.820
retrieving revision 1.821
diff -u -b -r1.820 -r1.821
--- simple.el   15 Sep 2006 21:04:39 -0000      1.820
+++ simple.el   16 Sep 2006 14:14:53 -0000      1.821
@@ -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))))