From: Yuan Fu <casouri@gmail.com>
Date: Tue, 14 Jun 2022 06:07:19 +0000 (-0700)
Subject: * src/treesit.c (Ftreesit_query_p): New function.
X-Git-Tag: emacs-29.0.90~1917
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8428b917da3f81feb1aad052a81a3ddfdebec28;p=emacs.git

* src/treesit.c (Ftreesit_query_p): New function.
---

diff --git a/src/treesit.c b/src/treesit.c
index 19f83437650..3c8edc92131 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);