Remap language symbol in treesit-query-compile (bug#72388)

* src/treesit.c (Ftreesit_query_compile): Use remapped language.

(cherry picked from commit 197d09a5fa9e94a09b7569a42480253138a5b2fd)

diff --git a/src/treesit.c b/src/treesit.c
index 0d878a580ebc6183ba195e67b8068b0c92d2abec..5de75219907d5ad3a88d78b2d687f5b65d9e2fa5 100644 (file)
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -3081,6 +3081,9 @@ You can use `treesit-query-validate' to validate and debug a query.  */)
     wrong_type_argument (Qtreesit_query_p, query);
   CHECK_SYMBOL (language);
 
+  Lisp_Object remapped_lang = resolve_language_symbol (language);
+  CHECK_SYMBOL (remapped_lang);
+
   treesit_initialize ();
 
   if (TS_COMPILED_QUERY_P (query))
@@ -3091,7 +3094,7 @@ You can use `treesit-query-validate' to validate and debug a query.  */)
       return query;
     }
 
-  Lisp_Object lisp_query = make_treesit_query (query, language);
+  Lisp_Object lisp_query = make_treesit_query (query, remapped_lang);
 
   /* Maybe actually compile.  */
   if (NILP (eager))