; Adjust 'read-multiple-choice' test

diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el
index daf40c63050eb1f97310beec0638b44cc6deb628..11ccc99ccb2035482d1eb3e7ede0e618a831dff5 100644 (file)
--- a/lisp/emacs-lisp/rmc.el
+++ b/lisp/emacs-lisp/rmc.el
@@ -263,6 +263,7 @@ Usage example:
                       (cons (capitalize (cadr elem)) elem))
                     choices)))
           (while (not result)
+            (setq invalid-choice nil)
             (when tchar
               (pcase (lookup-key query-replace-map (vector tchar) t)
                 ('help

diff --git a/test/lisp/emacs-lisp/rmc-tests.el b/test/lisp/emacs-lisp/rmc-tests.el
index b1fbcd25bd067fb14701a1b096f1a8a3d61ebe3c..9b494918d7ce741dff689e3fab93b6729d4d6067 100644 (file)
--- a/test/lisp/emacs-lisp/rmc-tests.el
+++ b/test/lisp/emacs-lisp/rmc-tests.el
@@ -67,7 +67,7 @@
                      (read-multiple-choice "Do it? " '((?y "yes") (?n "no"))))))))
 
 (ert-deftest test-read-multiple-choice-help ()
-  (let ((chars '(?o ?a))
+  (let ((chars '(?? ?a))
         help)
     (cl-letf* (((symbol-function #'read-event)
                 (lambda ()