From: Gerd Moellmann <gerd@gnu.org>
Date: Sat, 21 Aug 1999 19:27:28 +0000 (+0000)
Subject: (jit-lock-function): Use line-beginning-position.
X-Git-Tag: emacs-pretest-21.0.90~7100
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4bda243d2c200d05a45754ddbb7db82b37e919c;p=emacs.git

(jit-lock-function): Use line-beginning-position.
Don't unwind-protect font-lock-fontify-region.
---

diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index ffc4b1be3bc..d2e94fd69e4 100644
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -268,18 +268,10 @@ is active."
 		   ;; functions seem to expects this, if I believe
 		   ;; lazy-lock.
 		   (goto-char start)
-		   (unless (bolp)
-		     (beginning-of-line)
-		     (setq start (point)))
+		   (setq start (line-beginning-position))
 		   
 		   ;; Fontify the chunk, and mark it as fontified.
-		   (unwind-protect
-		       (font-lock-fontify-region start end nil))
-		   
-		   ;; Even if we got an error above, mark the region as
-		   ;; fontified.  If we get an error now, we're
-		   ;; probably getting the same error the next time we
-		   ;; try, so it's moot to try again.
+		   (font-lock-fontify-region start end nil)
 		   (add-text-properties start next '(fontified t))
 		   
 		   ;; Find the start of the next chunk, if any.