branch: elpa/treesit-fold
commit 959191660b18d1f75316f3e386a5bf36d9de3c3f
Author: Jen-Chieh <[email protected]>
Commit: Jen-Chieh <[email protected]>
Simplify
---
tree-sitter-fold.el | 14 ++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/tree-sitter-fold.el b/tree-sitter-fold.el
index 446427aa6b..0854903706 100644
--- a/tree-sitter-fold.el
+++ b/tree-sitter-fold.el
@@ -422,14 +422,12 @@ more information."
For arguments NODE and OFFSET, see function `tree-sitter-fold-range-seq' for
more information."
- (let* ((children (tsc-count-children node))
- (result nil)
- (last_bracket (tsc-get-nth-child node (- children 1)))
- (first_bracket (tsc-get-nth-child node 2)))
- (setq result (cons
- (tsc-node-start-position first_bracket)
- (+ 1 (tsc-node-start-position last_bracket))))
- (tree-sitter-fold-util--cons-add result offset)))
+ (when-let* ((children (tsc-count-children node))
+ (last_bracket (tsc-get-nth-child node (- children 1)))
+ (first_bracket (tsc-get-nth-child node 2))
+ (beg (tsc-node-start-position first_bracket))
+ (end (1+ (tsc-node-start-position last_bracket))))
+ (tree-sitter-fold-util--cons-add (cons beg end) offset)))
(provide 'tree-sitter-fold)
;;; tree-sitter-fold.el ends here
