From: Yuan Fu <casouri@gmail.com>
Date: Sun, 25 Sep 2022 03:41:30 +0000 (-0700)
Subject: Fix treesit-search-forward
X-Git-Tag: emacs-29.0.90~1871
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a31538ea5b006c3901ab85354725993b689a259d;p=emacs.git

Fix treesit-search-forward

* src/treesit.c (ts_search_forward): Fix return value.
---

diff --git a/src/treesit.c b/src/treesit.c
index f3efcbe5964..5917931e444 100644
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -1920,7 +1920,7 @@ ts_search_forward
       (start, pred, parser, named, forward, 0, true, skip_start))
     return true;
 
-  TSNode next = ts_traverse_sibling_helper(node, forward, named);
+  TSNode next = ts_traverse_sibling_helper (node, forward, named);
   while (ts_node_is_null (next))
     {
       node = ts_node_parent (node);
@@ -1930,9 +1930,9 @@ ts_search_forward
       if (ts_traverse_match_predicate (node, pred, parser))
 	{
 	  *start = node;
-	  return false;
+	  return true;
 	}
-      next = ts_traverse_sibling_helper(node, forward, named);
+      next = ts_traverse_sibling_helper (node, forward, named);
     }
   if (ts_search_forward
       (&next, pred, parser, named, forward, up_only, false))