changeset 2033:10cdd2928c7d

(momentary-string-display): Handle any event when flushing the display.
author Richard M. Stallman <rms@gnu.org>
date Sat, 06 Mar 1993 06:16:06 +0000
parents 20cc6c34421c
children 8f940ad51dd0
files lisp/subr.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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