mostly fix move-beginning-of-linemaster
authorShawn Betts <sabetts@gmail.com>
Tue, 4 Dec 2007 11:31:08 +0000 (4 03:31 -0800)
committerShawn Betts <sabetts@gmail.com>
Tue, 4 Dec 2007 11:31:08 +0000 (4 03:31 -0800)
its still busted when you run it on the first line

src/lisp/simple.lisp

index 9d34504..83f822d 100644 (file)
@@ -420,10 +420,10 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
        (line-move (1- arg) t))
 
     ;; Move to beginning-of-line, ignoring fields and invisibles.
-    (skip-chars-backward "\\n\\n") ;; FIXME: was "^\n"
+    (skip-chars-backward "^\n")
     (while (and (not (bobp)) (line-move-invisible-p (1- (point))))
       (goto-char (previous-char-property-change (point)))
-      (skip-chars-backward "\\n\\n")) ;; FIXME: was "^\n"
+      (skip-chars-backward "^\n"))
     (setq start (point))
 
     ;; Now find first visible char in the line