[Emacs-diffs] master 450fd8e: Set revert-buffer-function in ert-results-mode

[Mattias Engdegård]

branch: master
commit 450fd8e570335d393cc3e812e2dca20f44f142af
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    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.
---
 lisp/emacs-lisp/ert.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index fe6eb19..c90c06d 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.