; Tree-sitter font-lock debugging: print node type not language

* lisp/treesit.el (treesit-font-lock-fontify-region): Print node type.

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 82eda595b9e9cbbf93958c1225c22d948d725a00..b4f79dc15725c9a7296c504298269d8eb44d22d1 100644 (file)
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -677,8 +677,8 @@ If LOUDLY is non-nil, display some debugging information."
                 ;; a function.  This is to allow intermediate capture
                 ;; names used for #match and #eq.
                 (when (or loudly treesit--font-lock-verbose)
-                  (message "Fontifying text from %d to %d, Face: %s Language: %s"
-                           start end face language)))))))))
+                  (message "Fontifying text from %d to %d, Face: %s, Node: %s"
+                           start end face (treesit-node-type node))))))))))
   `(jit-lock-bounds ,start . ,end))
 
 ;;; Indent