[nongnu] elpa/buttercup f5cbf97e10 2/2: Merge branch 'fix-214'

[ELPA Syncer]

branch: elpa/buttercup
commit f5cbf97e1086441b2d6fa3ea240758b932c7c5e1
Merge: c365dae776 f515f8f95b
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@gmail.com>

    Merge branch 'fix-214'
    
    * fix-214:
      Prevent early backtrace on test failure
---
 buttercup-compat.el | 5 +++++
 buttercup.el        | 2 ++
 2 files changed, 7 insertions(+)

diff --git a/buttercup-compat.el b/buttercup-compat.el
index 792a8c8d1f..4da8e106e8 100644
--- a/buttercup-compat.el
+++ b/buttercup-compat.el
@@ -119,7 +119,12 @@ This is the time of the last change to the file's 
contents, and
 is a Lisp timestamp in the style of `current-time'."
        (nth 5 attributes)))
 
+;;;;;;;;;;;;;;;;;;;;;
+;; Introduced in 29.1
 
+(unless (boundp 'backtrace-on-error-noninteractive)
+  (defvar backtrace-on-error-noninteractive nil
+       "Control eacrly backtrace starting in Emacs 29."))
 
 (provide 'buttercup-compat)
 ;;; buttercup-compat.el ends here
diff --git a/buttercup.el b/buttercup.el
index 9d202fd981..d732c25a4c 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -1371,6 +1371,7 @@ spec, and should be killed after running the spec.")
 
 Takes directories as command line arguments, defaulting to the
 current directory."
+  (setq backtrace-on-error-noninteractive nil)
   (let ((dirs nil)
         (patterns nil)
         (args command-line-args-left))
@@ -1483,6 +1484,7 @@ If MARKDOWN-BUFFERS is empty (nil), use the current 
buffer."
 (defun buttercup-run-markdown ()
   "Run all test suites defined in Markdown files passed as arguments.
 A suite must be defined within a Markdown \"lisp\" code block."
+  (setq backtrace-on-error-noninteractive nil)
   (apply #'buttercup-run-markdown-buffer (mapcar #'find-file-noselect
                                                  command-line-args-left)))