diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 98cb1fd1cf6..b7d984374cb 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el | |||
| @@ -783,6 +783,10 @@ This mainly sets up debugger-related bindings." | |||
| 783 | (ert--run-test-debugger test-execution-info | 783 | (ert--run-test-debugger test-execution-info |
| 784 | args))) | 784 | args))) |
| 785 | (debug-on-error t) | 785 | (debug-on-error t) |
| 786 | ;; Don't infloop if the error being called is erroring | ||
| 787 | ;; out, and we have `debug-on-error' bound to nil inside | ||
| 788 | ;; the test. | ||
| 789 | (backtrace-on-error-noninteractive nil) | ||
| 786 | (debug-on-quit t) | 790 | (debug-on-quit t) |
| 787 | ;; FIXME: Do we need to store the old binding of this | 791 | ;; FIXME: Do we need to store the old binding of this |
| 788 | ;; and consider it in `ert--run-test-debugger'? | 792 | ;; and consider it in `ert--run-test-debugger'? |