procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Yuan Fu 2022-06-13 23:07:19 -07:00
parent 8f3b872e30
commit a8428b917d
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/treesit.c
View file

@ -569,6 +569,18 @@ DEFUN ("treesit-compiled-query-p",
return Qnil; 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", DEFUN ("treesit-node-parser",
Ftreesit_node_parser, Streesit_node_parser, Ftreesit_node_parser, Streesit_node_parser,
1, 1, 0, 1, 1, 0,
@ -1661,6 +1673,7 @@ dynamic libraries, in that order. */);
defsubr (&Streesit_parser_p); defsubr (&Streesit_parser_p);
defsubr (&Streesit_node_p); defsubr (&Streesit_node_p);
defsubr (&Streesit_compiled_query_p); defsubr (&Streesit_compiled_query_p);
defsubr (&Streesit_query_p);
defsubr (&Streesit_node_parser); defsubr (&Streesit_node_parser);