[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a9a096ff8ba 2/3: Add Ftreesit_parser_tag
From: |
Yuan Fu |
Subject: |
master a9a096ff8ba 2/3: Add Ftreesit_parser_tag |
Date: |
Thu, 7 Sep 2023 19:05:12 -0400 (EDT) |
branch: master
commit a9a096ff8baed36ea2b132cb754e4e868b208604
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>
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); */