; * src/treesit.c (Ftreesit_induce_sparse_tree): Minor change.

diff --git a/src/treesit.c b/src/treesit.c
index 3886fed346e969608b1f05bd52183d4b3c9b9224..adbed1427bed90fba317e971804faac79f54b36a 100644 (file)
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -3270,9 +3270,9 @@ a regexp.  */)
 
   Lisp_Object parser = XTS_NODE (root)->parser;
   Lisp_Object parent = Fcons (Qnil, Qnil);
-  TSTreeCursor cursor;
-  if (!treesit_cursor_helper (&cursor, XTS_NODE (root)->node, parser))
-    return Qnil;
+  /* In this function we never traverse above NODE, so we don't need
+     to use treesit_cursor_helper.  */
+  TSTreeCursor cursor = ts_tree_cursor_new (XTS_NODE (root)->node);
 
   treesit_build_sparse_tree (&cursor, parent, predicate, process_fn,
                             the_limit, parser);