mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

; * 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
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" "Generic tree-sitter font-lock error"
'treesit-error) 'treesit-error)
(defvar treesit-font-lock-settings)
(defun treesit--font-lock-level-setter (sym val) (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) (set-default sym val)
(and (treesit-available-p) (and (treesit-available-p)
(named-let loop ((res nil) (named-let loop ((res nil)
@ -571,7 +575,7 @@ omitted, default END to BEG."
res) res)
(let ((buffer (car buffers))) (let ((buffer (car buffers)))
(with-current-buffer buffer (with-current-buffer buffer
(if (treesit-parser-list) (if treesit-font-lock-settings
(loop (append res (list buffer)) (cdr buffers)) (loop (append res (list buffer)) (cdr buffers))
(loop res (cdr buffers))))))))) (loop res (cdr buffers)))))))))