Commit a4bda243 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(jit-lock-function): Use line-beginning-position.

Don't unwind-protect font-lock-fontify-region.
parent d39c8850
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment