procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(jit-lock-fontify-again): New function.

Browse source 
(jit-lock-fontify-now): Use it instead of lambda form.
This commit is contained in:
Kim F. Storm 2006-09-14 11:08:50 +00:00
parent 36961efd67
commit 2a8edf31ec
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/jit-lock.el
View file

@ -397,19 +397,19 @@ Defaults to the whole buffer. END can be out of bounds."
;; eagerly extend the refontified region with
;; jit-lock-after-change-extend-region-functions.
(when (< start orig-start)
(lexical-let ((start start)
(orig-start orig-start)
(buf (current-buffer)))
(run-with-timer
0 nil (lambda ()
(with-current-buffer buf
(with-buffer-prepared-for-jit-lock
(put-text-property start orig-start
'fontified t)))))))
(run-with-timer 0 nil 'jit-lock-fontify-again
(current-buffer) start orig-start))
;; Find the start of the next chunk, if any.
(setq start (text-property-any next end 'fontified nil))))))))
(defun jit-lock-fontify-again (buf start end)
"Fontify in buffer BUF from START to END."
(with-current-buffer buf
(with-buffer-prepared-for-jit-lock
(put-text-property start end 'fontified t))))
;;; Stealth fontification.