[nongnu] elpa/buttercup e0b5d9f 324/340: Correct error message in buttercup--format-stack-frame

[ELPA Syncer]

branch: elpa/buttercup
commit e0b5d9f0b04b7a590efcced7ec60fc4efbe58234
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@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)))