emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/treesit-fold befad113c9 390/417: feat: Return node when cl


From: ELPA Syncer
Subject: [nongnu] elpa/treesit-fold befad113c9 390/417: feat: Return node when closing
Date: Mon, 1 Jul 2024 10:03:09 -0400 (EDT)

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

    feat: Return node when closing
---
 treesit-fold.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/treesit-fold.el b/treesit-fold.el
index 5734a8929f..aa74129fdc 100644
--- a/treesit-fold.el
+++ b/treesit-fold.el
@@ -342,7 +342,8 @@ This function is borrowed from `tree-sitter-node-at-point'."
                                         (treesit-fold-summary--get 
(buffer-substring beg end)))
                                    treesit-fold-replacement))
       (overlay-put ov 'face 'treesit-fold-replacement-face)
-      (overlay-put ov 'isearch-open-invisible #'treesit-fold--isearch-open))))
+      (overlay-put ov 'isearch-open-invisible #'treesit-fold--isearch-open)
+      ov)))
 
 (defun treesit-fold--isearch-open (ov)
   "Open overlay OV during `isearch' session."
@@ -384,10 +385,10 @@ If no NODE is found in point, do nothing."
       ;; make sure I do not create multiple overlays for the same fold
       (when-let* ((ov (treesit-fold-overlay-at node)))
         (delete-overlay ov))
-      (when-let* ((range (treesit-fold--get-fold-range node)))
-        (treesit-fold--create-overlay range)
+      (when-let* ((range (treesit-fold--get-fold-range node))
+                  (ov (treesit-fold--create-overlay range)))
         (run-hooks 'treesit-fold-on-fold-hook)
-        t))))
+        ov))))
 
 ;;;###autoload
 (defun treesit-fold-open ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]