From 3f03f6284a093d69086773226bc2273cf62f5e85 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Tue, 21 May 2019 20:38:00 -0400 Subject: [PATCH] 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'. --- lisp/emacs-lisp/rmc.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5