* src/treesit.c (Ftreesit_query_language): New function.

diff --git a/src/treesit.c b/src/treesit.c
index 2b2e9c6d7939ca0cf80f4b17c4465d50e6110e13..7cfcc715f9be74ef97f72c294cd6eea087bba86c 100644 (file)
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -781,6 +781,16 @@ DEFUN ("treesit-query-p",
     return Qnil;
 }
 
+DEFUN ("treesit-query-language",
+       Ftreesit_query_language, Streesit_query_language, 1, 1, 0,
+       doc: /* Return the language of QUERY.
+QUERY has to be a compiled query.  */)
+  (Lisp_Object query)
+{
+  CHECK_TS_COMPILED_QUERY (query);
+  return XTS_COMPILED_QUERY(query)->language;
+}
+
 DEFUN ("treesit-node-parser",
        Ftreesit_node_parser, Streesit_node_parser,
        1, 1, 0,
@@ -2386,6 +2396,7 @@ dynamic libraries, in that order.  */);
   defsubr (&Streesit_node_p);
   defsubr (&Streesit_compiled_query_p);
   defsubr (&Streesit_query_p);
+  defsubr (&Streesit_query_language);
 
   defsubr (&Streesit_node_parser);