* simple.el (line-move-1): During fields during motion to the

	beginning of line to avoid getting point stuck.

2 files changed, 13 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 551c17b8dda..1bd965b677d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-18  Chong Yidong  <cyd@stupidchicken.com>
+
+        * simple.el (line-move-1): During fields during motion to the
+        beginning of line to avoid getting point stuck.
+
 2006-10-18  Martin Rudalics  <rudalics@gmx.at>
 
         * textmodes/flyspell.el (flyspell-word-search-backward): Set
diff --git a/lisp/simple.el b/lisp/simple.el
index 6655539a618..0d16e6a79eb 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3625,7 +3625,14 @@ Outline mode sets this."
               ;; The logic of this is the same as the loop above,
               ;; it just goes in the other direction.
               (while (and (< arg 0) (not done))
-                (beginning-of-line)
+                ;; For completely consistency with the forward-motion
+                ;; case, we should call beginning-of-line here.
+                ;; However, if point is inside a field and on a
+                ;; continued line, the call to (vertical-motion -1)
+                ;; below won't move us back far enough; then we return
+                ;; to the same column in line-move-finish, and point
+                ;; gets stuck -- cyd
+                (forward-line 0)
                 (cond
                  ((bobp)
                   (if (not noerror)