[nongnu] elpa/treesit-fold b8ac9a81ca 387/417: fix: Ensure return t

[ELPA Syncer]

branch: elpa/treesit-fold
commit b8ac9a81caba75c9509ca4a6ea28ca3c7890be39
Author: JenChieh <jcs090...@gmail.com>
Commit: JenChieh <jcs090...@gmail.com>

    fix: Ensure return t
---
 treesit-fold.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/treesit-fold.el b/treesit-fold.el
index 91cca5e835..5734a8929f 100644
--- a/treesit-fold.el
+++ b/treesit-fold.el
@@ -386,7 +386,8 @@ If no NODE is found in point, do nothing."
         (delete-overlay ov))
       (when-let* ((range (treesit-fold--get-fold-range node)))
         (treesit-fold--create-overlay range)
-        (run-hooks 'treesit-fold-on-fold-hook)))))
+        (run-hooks 'treesit-fold-on-fold-hook)
+        t))))
 
 ;;;###autoload
 (defun treesit-fold-open ()
@@ -410,7 +411,8 @@ If the current node is not folded or not foldable, do 
nothing."
                 (end (tsc-node-end-position node))
                 (nodes (treesit-fold--overlays-in 'invisible 'treesit-fold beg 
end)))
       (mapc #'delete-overlay nodes)
-      (run-hooks 'treesit-fold-on-fold-hook))))
+      (run-hooks 'treesit-fold-on-fold-hook)
+      t)))
 
 ;;;###autoload
 (defun treesit-fold-close-all ()
@@ -430,7 +432,8 @@ If the current node is not folded or not foldable, do 
nothing."
                      (mapcar #'cdr)
                      (mapc #'treesit-fold-close)))
       (when nodes
-        (run-hooks 'treesit-fold-on-fold-hook)))))
+        (run-hooks 'treesit-fold-on-fold-hook)
+        t))))
 
 ;;;###autoload
 (defun treesit-fold-open-all ()
@@ -439,7 +442,8 @@ If the current node is not folded or not foldable, do 
nothing."
   (treesit-fold--ensure-ts
     (when-let ((nodes (treesit-fold--overlays-in 'invisible 'treesit-fold)))
       (mapc #'delete-overlay nodes)
-      (run-hooks 'treesit-fold-on-fold-hook))))
+      (run-hooks 'treesit-fold-on-fold-hook)
+      t)))
 
 ;;;###autoload
 (defun treesit-fold-toggle ()