feature/tree-sitter a8428b917d 09/26: * src/treesit.c (Ftreesit_query_p): New function.

[Yuan Fu]

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

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

diff --git a/src/treesit.c b/src/treesit.c
index 19f8343765..3c8edc9213 100644
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -569,6 +569,18 @@ DEFUN ("treesit-compiled-query-p",
     return Qnil;
 }
 
+DEFUN ("treesit-query-p",
+       Ftreesit_query_p, Streesit_query_p, 1, 1, 0,
+       doc: /* Return t if OBJECT is a generic tree-sitter query.  */)
+  (Lisp_Object object)
+{
+  if (TS_COMPILED_QUERY_P (object)
+      || CONSP (object) || STRINGP (object))
+    return Qt;
+  else
+    return Qnil;
+}
+
 DEFUN ("treesit-node-parser",
        Ftreesit_node_parser, Streesit_node_parser,
        1, 1, 0,
@@ -1661,6 +1673,7 @@ dynamic libraries, in that order.  */);
   defsubr (&Streesit_parser_p);
   defsubr (&Streesit_node_p);
   defsubr (&Streesit_compiled_query_p);
+  defsubr (&Streesit_query_p);
 
   defsubr (&Streesit_node_parser);