diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-04-27 18:36:28 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-04-27 18:36:28 -0400 |
commit | 199f146aee3a692a69d80135752d88cae0fe8c49 (patch) | |
tree | 9e69ef25031f5bc5e77dc03258992e37e6a54886 /lisp | |
parent | 1be8485d67ef36b1d50496008be47be3050cc1bd (diff) | |
download | emacs-199f146aee3a692a69d80135752d88cae0fe8c49.tar.gz |
* lisp/jit-lock.el: Don't use `make-variable-buffer-local` on hooks.
(jit-lock-functions): Clarify that it's a hook.
(jit-lock-unregister): Adjust accordingly.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/jit-lock.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el index c0c9cac23e7..8b3384ae827 100644 --- a/lisp/jit-lock.el +++ b/lisp/jit-lock.el @@ -147,9 +147,10 @@ If 0, then fontification is only deferred while there is input pending." (defvar-local jit-lock-mode nil "Non-nil means Just-in-time Lock mode is active.") -(defvar-local jit-lock-functions nil - "Functions to do the actual fontification. -They are called with two arguments: the START and END of the region to fontify.") +(defvar jit-lock-functions nil + "Special hook run to do the actual fontification. +The functions are called with two arguments: +the START and END of the region to fontify.") (defvar-local jit-lock-context-unfontify-pos nil "Consider text after this position as contextually unfontified. @@ -341,7 +342,8 @@ If non-nil, CONTEXTUAL means that a contextual fontification would be useful." "Unregister FUN as a fontification function. Only applies to the current buffer." (remove-hook 'jit-lock-functions fun t) - (unless jit-lock-functions (jit-lock-mode nil))) + (when (member jit-lock-functions '(nil '(t))) + (jit-lock-mode nil))) (defun jit-lock-refontify (&optional beg end) "Force refontification of the region BEG..END (default whole buffer)." |