From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 9 Feb 2025 08:34:14 +0000 (+0100)
Subject: rmc.el: Use read-key instead of read-event like they do upstream
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c0fcfd0ef089eec677d135e7c1cc7295e16704f;p=emacs.git

rmc.el: Use read-key instead of read-event like they do upstream
---

diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el
index 94ed4aac60f..9bef7fe780f 100644
--- a/lisp/emacs-lisp/rmc.el
+++ b/lisp/emacs-lisp/rmc.el
@@ -299,7 +299,9 @@ Usage example:
             (message (concat invalid-choice full-prompt))
             (setq tchar
                   (condition-case nil
-                      (let ((cursor-in-echo-area t)) (read-event))
+                      (let ((cursor-in-echo-area t) (key (read-key)))
+                        (when (eq key ?\C-g) (signal 'quit nil))
+                        key)
                     (error nil)))
             (setq result (assq tchar choices)))
           result)
diff --git a/test/lisp/emacs-lisp/rmc-tests.el b/test/lisp/emacs-lisp/rmc-tests.el
index b4e7992fab8..d91704423c8 100644
--- a/test/lisp/emacs-lisp/rmc-tests.el
+++ b/test/lisp/emacs-lisp/rmc-tests.el
@@ -51,7 +51,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"))))))))
@@ -59,7 +59,7 @@
 (ert-deftest test-read-multiple-choice-help ()
   (let ((chars '(?? ?a))
         help)
-    (cl-letf* (((symbol-function #'read-event)
+    (cl-letf* (((symbol-function #'read-key)
                 (lambda ()
                   (message "chars %S" chars)
                   (when (= 1 (length chars))