branch: elpa/treesit-fold
commit e28c905a454234b4fc7801e069ab6e53de239da4
Author: Junyi Hou <[email protected]>
Commit: Junyi Hou <[email protected]>
improve error message when no foldable node under point
---
tree-sitter-fold.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tree-sitter-fold.el b/tree-sitter-fold.el
index 4f6b88d41f..69ce486262 100644
--- a/tree-sitter-fold.el
+++ b/tree-sitter-fold.el
@@ -89,7 +89,7 @@ the fold in a cons cell. See `tree-sitter-fold-range-python'
for an example."
(defun tree-sitter-fold--foldable-node-at-pos (&optional pos)
"Return the smallest foldable node at POS. If POS is nil, use `point'.
-Return nil if no foldable node is found.
+Raise `user-error' if no foldable node is found.
This function is borrowed from `tree-sitter-node-at-point'."
(let* ((pos (or pos (point)))
(foldable-types (alist-get major-mode
tree-sitter-fold-foldable-node-alist))
@@ -101,7 +101,7 @@ This function is borrowed from `tree-sitter-node-at-point'."
(setq result current
current nil)
(setq current (tsc-get-parent current))))
- result)))
+ (or result (user-error "No foldable node found at POS")))))
(defun tree-sitter-fold--get-fold-range (node)
"Return the beginning (as buffer position) of fold for NODE."
