From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 18 Oct 2006 04:58:29 +0000 (+0000)
Subject: * simple.el (line-move-1): During fields during motion to the
X-Git-Tag: emacs-pretest-22.0.90~92
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac6701ea5ce8fb50dc25ad0b90a6d13009fd8cdb;p=emacs.git

* 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 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)