From: Noam Postavsky <npostavs@gmail.com>
Date: Wed, 22 May 2019 00:38:00 +0000 (-0400)
Subject: Avoid infloop in read-multiple-choice (Bug#32257)
X-Git-Tag: emacs-27.0.90~2783
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f03f6284a093d69086773226bc2273cf62f5e85;p=emacs.git

Avoid infloop in read-multiple-choice (Bug#32257)

* lisp/emacs-lisp/rmc.el (read-multiple-choice): Use `read-event'
which won't get stuck (return the same event over and over again) for
non-character events, unlike `read-char'.
---

diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el
index 6d1adae9749..47f3b8dc9cf 100644
--- a/lisp/emacs-lisp/rmc.el
+++ b/lisp/emacs-lisp/rmc.el
@@ -118,7 +118,7 @@ Usage example:
                             choices)))
                   (condition-case nil
                       (let ((cursor-in-echo-area t))
-                        (read-char))
+                        (read-event))
                     (error nil))))
           (setq answer (lookup-key query-replace-map (vector tchar) t))
           (setq tchar