master b625ccff870: Fix treesit-node-top-level (bug#63374)

[Yuan Fu]

branch: master
commit b625ccff870cbae785d21678161c59fe91fda7a8
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    Fix treesit-node-top-level (bug#63374)
    
    * lisp/treesit.el (treesit-node-top-level): Fix the use of
    rx-to-string.
---
 lisp/treesit.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 1b1a7783a32..54f223dc40b 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -252,7 +252,7 @@ and more.  See `treesit-thing-settings' for details.
 
 If INCLUDE-NODE is non-nil, return NODE if it satisfies PRED."
   (let ((pred (or pred (rx-to-string
-                        `(bos ,(treesit-node-type node) eos))))
+                        `(seq bos ,(treesit-node-type node) eos))))
         (result nil))
     (cl-loop for cursor = (if include-node node
                             (treesit-node-parent node))