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

	beginning of line to avoid getting point stuck.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 551c17b8ddaadc0fb2a8d267e401ad64e688ff15..1bd965b677d36482879ea29d2d7e59c3c58b7cd0 100644 (file)
--- 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 6655539a6188fb0fbe0db74533027ddc7a8f4b3d..0d16e6a79eb5e3e0991244d22ab2beb3c2ba23ce 100644 (file)
--- 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)