diff --git a/lisp/treesit.el b/lisp/treesit.el index be264b4292a..2cf7bccdeed 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el @@ -4376,6 +4376,22 @@ generated by \"git describe\". It only works when :eval (treesit-pattern-expand '(identifier)) :eval (treesit-pattern-expand :equal)) + "Tree-sitter things and navigation" + (treesit-thing-defined-p + :no-eval (treesit-thing-defined-p 'sexp) + :eg-result nil) + (treesit-thing-definition + :no-eval (treesit-thing-defined 'sexp) + :eg-result (not ,(rx (or "{" "}" "[" "]" "(" ")" ",")))) + (treesit-thing-at + :no-eval (treesit-thing-at 3943) + :eg-result-string "#") + (treesit-thing-next + :no-eval (treesit-thing-next 3943 'sexp)) + (treesit-navigate-thing + :no-eval (treesit-navigate-thing 3943 1 'beg 'sexp)) + (treesit-beginning-of-thing + :no-eval (treesit-beginning-of-thing 'defun 1 'nested)) "Parsing a string" (treesit-parse-string @@ -4388,7 +4404,15 @@ generated by \"git describe\". It only works when "Misc" (treesit-subtree-stat :no-eval (treesit-subtree-stat node) - :eg-result (6 33 487))) + :eg-result (6 33 487)) + (treesit-language-abi-version + :no-eval (treesit-language-abi-version 'c) + :eg-result 14) + (treesit-grammar-location + :no-eval (treesit-language-abi-version 'c)) + (treesit-language-display-name + :no-eval (treesit-language-display-name 'cpp) + :eg-result "C++")) (provide 'treesit)