feature/tree-sitter bc66ff9875 4/8: * src/treesit.c (Ftreesit_query_language): New function.

[Yuan Fu]

branch: feature/tree-sitter
commit bc66ff98756fa28bbc733ef81103cac6730438fa
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    * src/treesit.c (Ftreesit_query_language): New function.
---
 src/treesit.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/treesit.c b/src/treesit.c
index 2b2e9c6d79..7cfcc715f9 100644
--- 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);