diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2019-07-11 15:22:23 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2019-07-16 15:35:45 +0200 |
| commit | 450fd8e570335d393cc3e812e2dca20f44f142af (patch) | |
| tree | ae0bab542a1ef28b7b4ab0ddf16814764c3c3448 /lisp/emacs-lisp/ert.el | |
| parent | 288e83ae00fcf6da8064ecb5a8ffaec202c5e9ec (diff) | |
| download | emacs-450fd8e570335d393cc3e812e2dca20f44f142af.tar.gz | |
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.
Diffstat (limited to 'lisp/emacs-lisp/ert.el')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 4 |
1 files changed, 3 insertions, 1 deletions
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. |