summaryrefslogtreecommitdiff
path: root/test/lisp/emacs-lisp
diff options
context:
space:
mode:
Diffstat (limited to 'test/lisp/emacs-lisp')
-rw-r--r--test/lisp/emacs-lisp/rmc-tests.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/rmc-tests.el b/test/lisp/emacs-lisp/rmc-tests.el
index 1bc8c90cad6..0237bc3f9e5 100644
--- a/test/lisp/emacs-lisp/rmc-tests.el
+++ b/test/lisp/emacs-lisp/rmc-tests.el
@@ -61,7 +61,7 @@
(ert-deftest test-read-multiple-choice ()
(dolist (char '(?y ?n))
- (cl-letf* (((symbol-function #'read-event) (lambda () char))
+ (cl-letf* (((symbol-function #'read-key) (lambda () char))
(str (if (eq char ?y) "yes" "no")))
(should (equal (list char str)
(read-multiple-choice "Do it? " '((?y "yes") (?n "no"))))))))
@@ -69,7 +69,7 @@
(ert-deftest test-read-multiple-choice-help ()
(let ((chars '(?o ?a))
help)
- (cl-letf* (((symbol-function #'read-event)
+ (cl-letf* (((symbol-function #'read-key)
(lambda ()
(message "chars %S" chars)
(when (= 1 (length chars))