# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1158416093 0
# Node ID e5dae51e141c1a1f2acb041f48d9b4b10045ba66
# Parent  38d3708f31ff946b9fb18b2e67d25b1374980f04
	* simple.el (line-move-to-column): Revert 2006-08-03 change.

diff -r 38d3708f31ff -r e5dae51e141c lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Sep 16 10:45:38 2006 +0000
+++ b/lisp/ChangeLog	Sat Sep 16 14:14:53 2006 +0000
@@ -1,3 +1,7 @@
+2006-09-16  Chong Yidong  <cyd@stupidchicken.com>
+
+	* simple.el (line-move-to-column): Revert 2006-08-03 change.
+
 2006-09-16  Eli Zaretskii  <eliz@gnu.org>
 
 	* help.el (describe-prefix-bindings): Use let, not let*.
diff -r 38d3708f31ff -r e5dae51e141c lisp/simple.el
--- a/lisp/simple.el	Sat Sep 16 10:45:38 2006 +0000
+++ b/lisp/simple.el	Sat Sep 16 14:14:53 2006 +0000
@@ -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))))