From a9a096ff8baed36ea2b132cb754e4e868b208604 Mon Sep 17 00:00:00 2001 From: Yuan Fu Date: Wed, 6 Sep 2023 22:15:21 -0700 Subject: [PATCH] Add Ftreesit_parser_tag * lisp/treesit.el (treesit-parser-tag): Add. * src/treesit.c (Ftreesit_parser_tag): Add. --- lisp/treesit.el | 1 + src/treesit.c | 11 +++++++++++ 2 files changed, 12 insertions(+) diff --git a/lisp/treesit.el b/lisp/treesit.el index 762bd8a9d04..45af47fb4ba 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el @@ -56,6 +56,7 @@ (declare-function treesit-parser-list "treesit.c") (declare-function treesit-parser-buffer "treesit.c") (declare-function treesit-parser-language "treesit.c") +(declare-function treesit-parser-tag "treesit.c") (declare-function treesit-parser-root-node "treesit.c") diff --git a/src/treesit.c b/src/treesit.c index f40bd32f156..eb4b4f1ab81 100644 --- a/src/treesit.c +++ b/src/treesit.c @@ -1543,6 +1543,16 @@ This symbol is the one used to create the parser. */) return XTS_PARSER (parser)->language_symbol; } +DEFUN ("treesit-parser-tag", + Ftreesit_parser_tag, Streesit_parser_tag, + 1, 1, 0, + doc: /* Return PARSER's tag. */) + (Lisp_Object parser) +{ + treesit_check_parser (parser); + return XTS_PARSER (parser)->tag; +} + /* Return true if PARSER is not deleted and its buffer is live. */ static bool treesit_parser_live_p (Lisp_Object parser) @@ -4110,6 +4120,7 @@ the symbol of that THING. For example, (or sexp sentence). */); defsubr (&Streesit_parser_list); defsubr (&Streesit_parser_buffer); defsubr (&Streesit_parser_language); + defsubr (&Streesit_parser_tag); defsubr (&Streesit_parser_root_node); /* defsubr (&Streesit_parse_string); */ -- 2.39.5