branch: elpa/sly
commit ce17a568efd3673e9d6f41438acc4023379c198e
Author: Estevan Castilho <[email protected]>
Commit: GitHub <[email protected]>
Close #678: Fix erroring behaviour in sly-sexp-at-point
* sly.el (sly-sexp-at-point): error only with both 'interactive' and
'errorp'
---
sly.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/sly.el b/sly.el
index 9e9860e2b5..b4d68193f5 100644
--- a/sly.el
+++ b/sly.el
@@ -7392,7 +7392,7 @@ as nil. With non-nil STRINGP, only look for strings"
(not (eq (syntax-class (syntax-after (car bounds)))
(char-syntax ?\"))))
(if (and interactive
- interactive)
+ errorp)
(user-error "No string at point")
(throw 'return nil)))
(when interactive
