diff options
| -rw-r--r-- | test/lisp/emacs-lisp/map-ynp-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/map-ynp-tests.el b/test/lisp/emacs-lisp/map-ynp-tests.el index 6a9c8213791..4e88e5865fe 100644 --- a/test/lisp/emacs-lisp/map-ynp-tests.el +++ b/test/lisp/emacs-lisp/map-ynp-tests.el | |||
| @@ -33,7 +33,7 @@ | |||
| 33 | 33 | ||
| 34 | (ert-deftest test-map-ynp-kmacro () | 34 | (ert-deftest test-map-ynp-kmacro () |
| 35 | "Test that `map-y-or-n-p' in a kmacro terminates on end of input." | 35 | "Test that `map-y-or-n-p' in a kmacro terminates on end of input." |
| 36 | (cl-letf* (((symbol-function #'backtrace-print) (lambda ()))) ;; bug#67836 | 36 | (let ((eval-expression-debug-on-error nil)) ;; bug#67836 |
| 37 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET y")) | 37 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET y")) |
| 38 | (should-error | 38 | (should-error |
| 39 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET"))) | 39 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET"))) |