From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 11 Jul 2019 13:22:23 +0000 (+0200)
Subject: Set revert-buffer-function in ert-results-mode
X-Git-Tag: emacs-27.0.90~1880
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=450fd8e570335d393cc3e812e2dca20f44f142af;p=emacs.git

Set revert-buffer-function in ert-results-mode

* lisp/emacs-lisp/ert.el (ert-results-mode): Set revert-buffer-function
to re-run the same test selection.  It is a good fit and permits use of
the standard "g" key binding.
---

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index fe6eb19451b..c90c06d0849 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -2092,7 +2092,9 @@ and how to display message."
 ;;; Commands and button actions for the results buffer.
 
 (define-derived-mode ert-results-mode special-mode "ERT-Results"
-  "Major mode for viewing results of ERT test runs.")
+  "Major mode for viewing results of ERT test runs."
+  (setq-local revert-buffer-function
+              (lambda (&rest _) (ert-results-rerun-all-tests))))
 
 (cl-loop for (key binding) in
          '( ;; Stuff that's not in the menu.