Use treesit-node-match-p in treesit-parent-while

The previous commit should've done this, but I missed it.

* lisp/treesit.el (treesit-parent-while): Use treesit-node-match-p.

(cherry picked from commit cebd26b2e16d75a939e2a9f91becc6ec702122a7)

diff --git a/lisp/treesit.el b/lisp/treesit.el
index f179204d89c0b8051c429c09481e0d561381bd6f..6a485ae591ab8e6b7d8510f630ae005b936f1537 100644 (file)
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -366,7 +366,7 @@ returns nil.
 PRED can be a predicate function, a regexp matching node type,
 and more; see docstring of `treesit-thing-settings'."
   (let ((last nil))
-    (while (and node (funcall pred node))
+    (while (and node (treesit-node-match-p node pred))
       (setq last node
             node (treesit-node-parent node)))
     last))