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

Allow treesit-font-lock-recompute-features to be language-specific

Browse source 
* lisp/treesit.el:
(treesit-font-lock-recompute-features): Add LANGUAGE parameter.
This commit is contained in:
Yuan Fu 2023-09-14 21:32:23 -07:00
parent 160b4c295d
commit 04fd8b173b
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/treesit.el
View file

@ -952,7 +952,8 @@ name, it is ignored."
(defvar treesit--font-lock-verbose nil
"If non-nil, print debug messages when fontifying.")
(defun treesit-font-lock-recompute-features (&optional add-list remove-list)
(defun treesit-font-lock-recompute-features
(&optional add-list remove-list language)
"Enable/disable font-lock features.
Enable each feature in ADD-LIST, disable each feature in
@ -967,7 +968,10 @@ the features are disabled.
ADD-LIST and REMOVE-LIST are lists of feature symbols. The
same feature symbol cannot appear in both lists; the function
signals the `treesit-font-lock-error' error if that happens."
signals the `treesit-font-lock-error' error if that happens.
If LANGUAGE is non-nil, only compute features for that language,
and leave settings for other languages unchanged."
(when-let ((intersection (cl-intersection add-list remove-list)))
(signal 'treesit-font-lock-error
(list "ADD-LIST and REMOVE-LIST contain the same feature"
@ -987,9 +991,13 @@ signals the `treesit-font-lock-error' error if that happens."
(additive (or add-list remove-list)))
(cl-loop for idx = 0 then (1+ idx)
for setting in treesit-font-lock-settings
for lang = (treesit-query-language (nth 0 setting))
for feature = (nth 2 setting)
for current-value = (nth 1 setting)
;; Set the ENABLE flag for the setting.
;; Set the ENABLE flag for the setting if its language is
;; relevant.
if (or (null language)
(eq language lang))
do (setf (nth 1 (nth idx treesit-font-lock-settings))
(cond
((not additive)