# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731398539 0
# Node ID 20cc6c34421c75c2fc502352206371bb405bf25b
# Parent  f2dbfd43a1c55be688c946a43b3a04a021252058
(Info-summary): Handle any event when flushing the display.

diff -r f2dbfd43a1c5 -r 20cc6c34421c lisp/info.el
--- a/lisp/info.el	Sat Mar 06 06:15:05 1993 +0000
+++ b/lisp/info.el	Sat Mar 06 06:15:39 1993 +0000
@@ -896,7 +896,7 @@
       (while (progn (setq flag (not (pos-visible-in-window-p (point-max))))
 		    (message (if flag "Type Space to see more"
 			       "Type Space to return to Info"))
-		    (if (/= ?\  (setq ch (read-char)))
+		    (if (not (eq ?\  (setq ch (read-event))))
 			(progn (setq unread-command-events (list ch)) nil)
 		      flag))
 	(scroll-up)))))