From 2bec93b5f4a04e893b975d35d2ef39969d596979 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 4 Nov 2025 19:23:55 +0200 Subject: [PATCH] * test/lisp/emacs-lisp/map-ynp-tests.el: Silence backtrace. (test-map-ynp-kmacro): Ignore 'backtrace-print' that prints unrequested backtrace (bug#67836). --- test/lisp/emacs-lisp/map-ynp-tests.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/test/lisp/emacs-lisp/map-ynp-tests.el b/test/lisp/emacs-lisp/map-ynp-tests.el index 371d52e2028..6a9c8213791 100644 --- a/test/lisp/emacs-lisp/map-ynp-tests.el +++ b/test/lisp/emacs-lisp/map-ynp-tests.el @@ -33,14 +33,15 @@ (ert-deftest test-map-ynp-kmacro () "Test that `map-y-or-n-p' in a kmacro terminates on end of input." - (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET y")) - (should-error - (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET"))) - (unless noninteractive - (let ((noninteractive t)) - (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET y")) - (should-error - (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET")))))) + (cl-letf* (((symbol-function #'backtrace-print) (lambda ()))) ;; bug#67836 + (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET y")) + (should-error + (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET"))) + (unless noninteractive + (let ((noninteractive t)) + (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET y")) + (should-error + (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET"))))))) (provide 'map-ynp-tests) ;;; map-ynp-tests.el ends here