* src/treesit.c (treesit_search_forward): Fix traverses algorithm.

diff --git a/src/treesit.c b/src/treesit.c
index 3ac0a0c7b2ecf7253b92faad88ce99c06bfb8cde..9136539b8b6b06c5b8a5cd03a927aab9dfa7b157 100644 (file)
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -2504,7 +2504,7 @@ treesit_search_forward (TSNode *start, Lisp_Object pred, Lisp_Object parser,
        }
       /* We are at the next sibling, deep dive into the first leaf
         node.  */
-      TSNode next_next = ts_node_child (next, 0);
+      TSNode next_next = treesit_traverse_child_helper (next, forward, named);
       while (!ts_node_is_null (next_next))
        {
          next = next_next;