From f8bacc70b538079679b76a9d1e6fdf5ebb361f47 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 5 Oct 2000 02:13:25 +0000 Subject: [PATCH] (jit-lock-register, jit-lock-unregister): New functions. --- lisp/jit-lock.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el index a08dbffc2ea..e9b4b2ed309 100644 --- a/lisp/jit-lock.el +++ b/lisp/jit-lock.el @@ -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 -- 2.39.2