# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731398566 0
# Node ID 10cdd2928c7dcee4b14c59ba47e26d2873f489b2
# Parent  20cc6c34421c75c2fc502352206371bb405bf25b
(momentary-string-display): Handle any event when flushing the display.

diff -r 20cc6c34421c -r 10cdd2928c7d lisp/subr.el
--- a/lisp/subr.el	Sat Mar 06 06:15:39 1993 +0000
+++ b/lisp/subr.el	Sat Mar 06 06:16:06 1993 +0000
@@ -348,7 +348,7 @@
 	    (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