From dc9f8c1c63fd7fb2c39c9263424fe7fc9dca66ae Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sun, 26 May 2019 21:55:00 -0400 Subject: [PATCH] ; Fix read-multiple-choice test * test/lisp/emacs-lisp/rmc-tests.el (test-read-multiple-choice): Rebind read-event, read-multiple-choice uses that since 2019-05-26 "Avoid infloop in read-multiple-choice (Bug#32257)". --- test/lisp/emacs-lisp/rmc-tests.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/lisp/emacs-lisp/rmc-tests.el b/test/lisp/emacs-lisp/rmc-tests.el index b20bfd4e0c5..71c7835e204 100644 --- a/test/lisp/emacs-lisp/rmc-tests.el +++ b/test/lisp/emacs-lisp/rmc-tests.el @@ -31,7 +31,7 @@ (ert-deftest test-read-multiple-choice () (dolist (char '(?y ?n)) - (cl-letf* (((symbol-function #'read-char) (lambda () char)) + (cl-letf* (((symbol-function #'read-event) (lambda () char)) (str (if (eq char ?y) "yes" "no"))) (should (equal (list char str) (read-multiple-choice "Do it? " '((?y "yes") (?n "no")))))))) -- 2.39.5