summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2020-04-27 18:36:28 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2020-04-27 18:36:28 -0400
commit199f146aee3a692a69d80135752d88cae0fe8c49 (patch)
tree9e69ef25031f5bc5e77dc03258992e37e6a54886 /lisp
parent1be8485d67ef36b1d50496008be47be3050cc1bd (diff)
downloademacs-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.el10
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)."