Commit 3f03f628 authored by Noam Postavsky's avatar Noam Postavsky

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'.
parent 9fe3bdf2
Pipeline #1807 failed with stage
in 90 minutes and 2 seconds
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment