[nongnu] elpa/buttercup d6cf530 072/340: Clean up the interactive reporter.

[ELPA Syncer]

branch: elpa/buttercup
commit d6cf530e2cd05c9f6cddaa48df26d7c416e0eab3
Author: Jorgen Schaefer <contact@jorgenschaefer.de>
Commit: Jorgen Schaefer <contact@jorgenschaefer.de>

    Clean up the interactive reporter.
    
    Initialize the failed specs variable that is used later, do not
    fail in the read-only buffer, and use special-mode instead of
    view-mode.
---
 buttercup.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 4088eb2..6e0956e 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -762,7 +762,8 @@ Calls either `buttercup-reporter-batch' or
         (print-escape-nonascii t))
     (pcase event
       (`buttercup-started
-       (setq buttercup-reporter-batch--start-time (float-time))
+       (setq buttercup-reporter-batch--start-time (float-time)
+             buttercup-reporter-batch--failures nil)
        (buttercup--print "Running %s specs.\n\n"
                          (buttercup-suites-total-specs-defined arg)))
 
@@ -838,12 +839,13 @@ Calls either `buttercup-reporter-batch' or
   "Reporter for interactive uses."
   ;; This is a bit rudimentary ...
   (with-current-buffer (get-buffer-create "*Buttercup*")
-    (when (eq event 'buttercup-started)
-      (erase-buffer)
-      (view-mode 1)
-      (display-buffer (current-buffer)))
     (let ((old-print (symbol-function 'buttercup--print))
-          (buf (current-buffer)))
+          (buf (current-buffer))
+          (inhibit-read-only t))
+      (when (eq event 'buttercup-started)
+        (erase-buffer)
+        (special-mode)
+        (display-buffer (current-buffer)))
       (fset 'buttercup--print (lambda (fmt &rest args)
                                 (with-current-buffer buf
                                   (let ((inhibit-read-only t))