From c8c58a48125aa1051bbaa49593551f9ebdf29a6e Mon Sep 17 00:00:00 2001 From: Shawn Betts Date: Tue, 4 Dec 2007 03:31:08 -0800 Subject: [PATCH] mostly fix move-beginning-of-line its still busted when you run it on the first line --- src/lisp/simple.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lisp/simple.lisp b/src/lisp/simple.lisp index 9d34504..83f822d 100644 --- a/src/lisp/simple.lisp +++ b/src/lisp/simple.lisp @@ -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 -- 2.11.4.GIT