Escape percent character in treesit--inspect-name (bug#65540)

* lisp/treesit.el (treesit-inspect-node-at-point): Escape percent.

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 04d460fdea4b04cf7742d0a608327bd38b2b6123..41ebc62fca6c7420c5688ef6299b1c4082ce8d3a 100644 (file)
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -2459,7 +2459,8 @@ in `treesit-parser-list'."
                         'bold nil))
         name
         (if (treesit-node-check node 'named) ")" "\""))))
-    (setq treesit--inspect-name name)
+    ;; Escape the percent character for mode-line. (Bug#65540)
+    (setq treesit--inspect-name (string-replace "%" "%%" name))
     (force-mode-line-update)
     (when arg
       (if node-list