diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2019-05-21 20:38:00 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2019-05-26 08:16:23 -0400 |
| commit | 3f03f6284a093d69086773226bc2273cf62f5e85 (patch) | |
| tree | 7c46b79b039fb9f1a84556f37dd51ac2d6ec9bbc /lisp/emacs-lisp | |
| parent | 9fe3bdf25d63f441e973cdcf88de0b26b53a54a3 (diff) | |
| download | emacs-3f03f6284a093d69086773226bc2273cf62f5e85.tar.gz emacs-3f03f6284a093d69086773226bc2273cf62f5e85.tar.bz2 emacs-3f03f6284a093d69086773226bc2273cf62f5e85.zip | |
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'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/rmc.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 |