Commit 3547c855 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(momentary-string-display): Handle any event when flushing the display.

parent 1614c867
......@@ -348,7 +348,7 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
(setq insert-end (point)))
(message (or message "Type %s to continue editing.")
(single-key-description exit-char))
(let ((char (read-char)))
(let ((char (read-event)))
(or (eq char exit-char)
(setq unread-command-events (list char)))))
(if insert-end
......
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