[Emacs-diffs] trunk r116083: * lisp/simple.el (move-beginning-of-line): Make sure we don't move forward.

[Stefan Monnier]

------------------------------------------------------------
revno: 116083
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=16497
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2014-01-20 14:15:10 -0500
message:
  * lisp/simple.el (move-beginning-of-line): Make sure we don't move forward.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-20 08:52:44 +0000
+++ b/lisp/ChangeLog    2014-01-20 19:15:10 +0000
@@ -1,3 +1,8 @@
+2014-01-20  Stefan Monnier  <address@hidden>
+
+       * simple.el (move-beginning-of-line): Make sure we don't move forward
+       (bug#16497).
+
 2014-01-20  Juri Linkov  <address@hidden>
 
        * saveplace.el (toggle-save-place, save-place-to-alist)

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2014-01-18 22:23:38 +0000
+++ b/lisp/simple.el    2014-01-20 19:15:10 +0000
@@ -5534,9 +5534,9 @@
       (goto-char (previous-char-property-change (point)))
       (skip-chars-backward "^\n"))
 
-    ;; Now find first visible char in the line
-    (while (and (not (eobp)) (invisible-p (point)))
-      (goto-char (next-char-property-change (point))))
+    ;; Now find first visible char in the line.
+    (while (and (< (point) orig) (invisible-p (point)))
+      (goto-char (next-char-property-change (point) orig)))
     (setq first-vis (point))
 
     ;; See if fields would stop us from reaching FIRST-VIS.