Fix treesit-query-validate for string input (bug#66400)

* lisp/treesit.el (treesit-query-validate): Don't expand if QUERY is string.
2023-10-07 19:36:44 -07:00 · 2023-10-07 19:36:44 -07:00 · 53292c5d81
commit 53292c5d81
parent 81a0c1ed2e
1 changed files with 3 additions and 1 deletions
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@ -2528,7 +2528,9 @@ to the offending pattern and highlight the pattern."
                  (start (nth 1 data))
                  (inhibit-read-only t))
             (erase-buffer)
-             (insert (treesit-query-expand query))
+             (insert (if (stringp query)
+                         query
+                       (treesit-query-expand query)))
             (goto-char start)
             (search-forward " " nil t)
             (put-text-property start (point) 'face 'error)