diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2019-05-26 21:55:00 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2019-05-26 21:55:00 -0400 |
| commit | dc9f8c1c63fd7fb2c39c9263424fe7fc9dca66ae (patch) | |
| tree | cb4c2a4b300c6d324f37b91ad76e982bd78cc9b1 /test/lisp/emacs-lisp | |
| parent | 9d5906d9d21da4b85a3a9316ebd693daaa5bec38 (diff) | |
| download | emacs-dc9f8c1c63fd7fb2c39c9263424fe7fc9dca66ae.tar.gz emacs-dc9f8c1c63fd7fb2c39c9263424fe7fc9dca66ae.tar.bz2 emacs-dc9f8c1c63fd7fb2c39c9263424fe7fc9dca66ae.zip | |
; 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)".
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/rmc-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
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")))))))) |