* lisp/simple.el (move-beginning-of-line): Make sure we don't move forward.

Fixes: debbugs:16497

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a838762a1b3100442af4a035aa78c20d6b064cd..98df632bf89833dbdfd930bbba661162c45dd7b0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * simple.el (move-beginning-of-line): Make sure we don't move forward
+       (bug#16497).
+
 2014-01-20  Juri Linkov  <juri@jurta.org>
 
        * saveplace.el (toggle-save-place, save-place-to-alist)

diff --git a/lisp/simple.el b/lisp/simple.el
index ef965aa6fe52cf285db3f832bfb56bf7626c7dfb..8e23b0804ca899bc072a9b8b0c15b83f449ba480 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5534,9 +5534,9 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
       (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.