diff options
| -rw-r--r-- | compat-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compat-tests.el b/compat-tests.el index 8bfc502..79d7e4c 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -370,6 +370,7 @@ (ert-deftest compat-read-multiple-choice () (let ((orig-re (symbol-function #'read-event)) (orig-rc (symbol-function #'read-char)) + (orig-rk (symbol-function #'read-key)) (orig-cr completing-read-function)) (unwind-protect (dolist (test '(("Choose" @@ -380,12 +381,14 @@ (dolist (choice (cdr test)) (fset #'read-char (lambda (&rest _) (car choice))) (fset #'read-event (lambda (&rest _) (car choice))) + (fset #'read-key (lambda (&rest _) (car choice))) (setq completing-read-function (lambda (&rest _) (cadr choice))) (should-equal choice (compat-call read-multiple-choice (car test) (cdr test) nil nil 'long)) (should-equal choice (read-multiple-choice (car test) (cdr test))))) (fset #'read-event orig-re) (fset #'read-char orig-rc) + (fset #'read-key orig-rk) (setq completing-read-function orig-cr)))) (ert-deftest compat-read-char-from-minibuffer () |