Mercurial > emacs
changeset 25341:9295aaade56b
(jit-lock-function): Use line-beginning-position.
Don't unwind-protect font-lock-fontify-region.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sat, 21 Aug 1999 19:27:28 +0000 |
| parents | 08bf4a1b174f |
| children | 99d49ec31b8a |
| files | lisp/jit-lock.el |
| diffstat | 1 files changed, 2 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jit-lock.el Sat Aug 21 17:46:37 1999 +0000 +++ b/lisp/jit-lock.el Sat Aug 21 19:27:28 1999 +0000 @@ -268,18 +268,10 @@ ;; 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.