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

(jit-lock-register, jit-lock-unregister): New functions.

Browse source
This commit is contained in:
Stefan Monnier 2000-10-05 02:13:25 +00:00
parent b5d006eaf9
commit f8bacc70b5
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/jit-lock.el
View file

@ -252,6 +252,20 @@ the variable `jit-lock-stealth-nice'."
'font-lock-after-change-function nil t))
(remove-hook 'fontification-functions 'jit-lock-function))))
(defun jit-lock-register (fun)
"Register FUN as a fontification function to be called by jit-lock.
Only applies to the current buffer."
(add-hook 'jit-lock-functions fun nil t)
(jit-lock-mode t))
(defun jit-lock-unregister (fun)
"Unregister FUN as a fontification function to be called by jit-lock.
Only applies to the current buffer."
(remove-hook 'jit-lock-functions fun t)
(when (or (null jit-lock-functions)
(and (equal jit-lock-functions '(t))
(null (default-value 'jit-lock-functions))))
(jit-lock-mode nil)))
;; This function is used to prevent font-lock-fontify-buffer from
;; fontifying eagerly the whole buffer. This is important for