[nongnu] elpa/treesit-fold 0e21e12560: fix: clojure function

[ELPA Syncer]

branch: elpa/treesit-fold
commit 0e21e12560f0977d390e3d4af45020f0f6db1c15
Author: Jen-Chieh Shen <jcs090218@gmail.com>
Commit: Jen-Chieh Shen <jcs090218@gmail.com>

    fix: clojure function
---
 treesit-fold-parsers.el | 4 +++-
 treesit-fold.el         | 4 ++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/treesit-fold-parsers.el b/treesit-fold-parsers.el
index 3d813393c8..646db4c9a0 100644
--- a/treesit-fold-parsers.el
+++ b/treesit-fold-parsers.el
@@ -181,7 +181,9 @@
     (str_lit  . treesit-fold-range-seq)
     (comment
      . (lambda (node offset)
-         (treesit-fold-range-line-comment node offset ";;")))))
+         (treesit-fold-range-line-comment node
+                                          (treesit-fold--cons-add offset '(0 . 
-1))
+                                          ";;")))))
 
 (defun treesit-fold-parsers-cmake ()
   "Rule set for CMake."
diff --git a/treesit-fold.el b/treesit-fold.el
index 010155cef2..3b42693daf 100644
--- a/treesit-fold.el
+++ b/treesit-fold.el
@@ -777,8 +777,8 @@ more information."
 
 For arguments NODE and OFFSET, see function `treesit-fold-range-seq' for
 more information."
-  (when-let* ((param-node (car (treesit-fold-find-children node "vec_lit")))
-              (next-node (treesit-node-next-sibling param-node))
+  (when-let* ((name-node (nth 1 (treesit-fold-find-children node "sym_lit")))
+              (next-node (treesit-node-next-sibling name-node))
               (beg (treesit-node-start next-node))
               (end (1- (treesit-node-end node))))
     (unless treesit-fold-on-next-line  ; display nicely