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

; * lisp/treesit.el (treesit--font-lock-level-setter): Minor change.

Browse source
This commit is contained in:
Yuan Fu 2023-02-02 18:54:49 -08:00
parent 69380a88e9
commit 671e5d9fad
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/treesit.el
View file

@ -555,8 +555,12 @@ omitted, default END to BEG."
"Generic tree-sitter font-lock error"
'treesit-error)
(defvar treesit-font-lock-settings)
(defun treesit--font-lock-level-setter (sym val)
"Custom setter for `treesit-font-lock-level'."
"Custom setter for `treesit-font-lock-level'.
Set the default value of SYM to VAL, recompute fontification
features and refontify for every buffer where tree-sitter-based
fontification is enabled."
(set-default sym val)
(and (treesit-available-p)
(named-let loop ((res nil)
@ -571,7 +575,7 @@ omitted, default END to BEG."
res)
(let ((buffer (car buffers)))
(with-current-buffer buffer
(if (treesit-parser-list)
(if treesit-font-lock-settings
(loop (append res (list buffer)) (cdr buffers))
(loop res (cdr buffers)))))))))