# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1138854070 0
# Node ID 0cbfc61cfa3f72d12410920461c7ba502fbdd223
# Parent  4bad00cd1b68b55b5dc005c145aeb57fc677a2b8
(move-beginning-of-line): Scan properly for invis change.

diff -r 4bad00cd1b68 -r 0cbfc61cfa3f lisp/simple.el
--- a/lisp/simple.el	Thu Feb 02 04:20:36 2006 +0000
+++ b/lisp/simple.el	Thu Feb 02 04:21:10 2006 +0000
@@ -3743,7 +3743,7 @@
     ;; Move to beginning-of-line, ignoring fields and invisibles.
     (skip-chars-backward "^\n")
     (while (and (not (bobp)) (line-move-invisible-p (1- (point))))
-      (goto-char (previous-char-property-change (1- (point))))
+      (goto-char (previous-char-property-change (point)))
       (skip-chars-backward "^\n"))
 
     ;; Take care of fields.