(Info-summary): Handle any event when flushing the display.

1614c867 · Richard M. Stallman · 8f90f594 · 1614c867
Commit 1614c867 authored Mar 06, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/info.el lisp/info.el +1 -1

No files found.
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -896,7 +896,7 @@ N is the digit argument used to invoke this command."
      (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)))))