From ac6701ea5ce8fb50dc25ad0b90a6d13009fd8cdb Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 18 Oct 2006 04:58:29 +0000 Subject: [PATCH] * simple.el (line-move-1): During fields during motion to the beginning of line to avoid getting point stuck. --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) 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 + + * simple.el (line-move-1): During fields during motion to the + beginning of line to avoid getting point stuck. + 2006-10-18 Martin Rudalics * 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) -- 2.39.2