branch: elpa/buttercup
commit e0b5d9f0b04b7a590efcced7ec60fc4efbe58234
Author: Ola Nilsson <ola.nils...@gmail.com>
Commit: Ola Nilsson <ola.nils...@gmail.com>
Correct error message in buttercup--format-stack-frame
The style variable is used for error reports, so it must be set to the
style used.
---
buttercup.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/buttercup.el b/buttercup.el
index 4e625c7..c7ec197 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -1945,7 +1945,8 @@ ARGS according to `debugger'."
"Format stack FRAME according to STYLE.
STYLE can be one of `full', `crop', or `pretty'.
If STYLE is nil, use `buttercup-stack-frame-style' or `crop'."
- (pcase (or style buttercup-stack-frame-style 'crop)
+ (setq style (or style buttercup-stack-frame-style 'crop))
+ (pcase style
(`full (format " %S" (cdr frame)))
(`crop
(let ((line (buttercup--format-stack-frame frame 'full)))
