[Emacs-diffs] master dc9f8c1: ; Fix read-multiple-choice test

[Noam Postavsky]

branch: master
commit dc9f8c1c63fd7fb2c39c9263424fe7fc9dca66ae
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    ; 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 b20bfd4..71c7835 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"))))))))