diff options
| author | Mattias Engdegård | 2019-07-11 15:22:23 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2019-07-16 15:35:45 +0200 |
| commit | 450fd8e570335d393cc3e812e2dca20f44f142af (patch) | |
| tree | ae0bab542a1ef28b7b4ab0ddf16814764c3c3448 | |
| parent | 288e83ae00fcf6da8064ecb5a8ffaec202c5e9ec (diff) | |
| download | emacs-450fd8e570335d393cc3e812e2dca20f44f142af.tar.gz emacs-450fd8e570335d393cc3e812e2dca20f44f142af.zip | |
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.
| -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." | |||
| 2092 | ;;; Commands and button actions for the results buffer. | 2092 | ;;; Commands and button actions for the results buffer. |
| 2093 | 2093 | ||
| 2094 | (define-derived-mode ert-results-mode special-mode "ERT-Results" | 2094 | (define-derived-mode ert-results-mode special-mode "ERT-Results" |
| 2095 | "Major mode for viewing results of ERT test runs.") | 2095 | "Major mode for viewing results of ERT test runs." |
| 2096 | (setq-local revert-buffer-function | ||
| 2097 | (lambda (&rest _) (ert-results-rerun-all-tests)))) | ||
| 2096 | 2098 | ||
| 2097 | (cl-loop for (key binding) in | 2099 | (cl-loop for (key binding) in |
| 2098 | '( ;; Stuff that's not in the menu. | 2100 | '( ;; Stuff that's not in the menu. |