mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Don't unwind-protect font-lock-fontify-region.
This commit is contained in:
Gerd Moellmann 1999-08-21 19:27:28 +00:00
parent d39c88504e
commit a4bda243d2
1 changed files with 2 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/jit-lock.el
View file

@ -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.