diff options
| author | Richard M. Stallman | 1993-03-06 06:15:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-06 06:15:39 +0000 |
| commit | 1614c867a73759cf01ccc9c9aafe2e48172a39f4 (patch) | |
| tree | 21056913e0111c366e8ec4179b0d3daeff21aa51 | |
| parent | 8f90f5941618e606b4de55c84b6a8c0c534e7aa5 (diff) | |
| download | emacs-1614c867a73759cf01ccc9c9aafe2e48172a39f4.tar.gz emacs-1614c867a73759cf01ccc9c9aafe2e48172a39f4.zip | |
(Info-summary): Handle any event when flushing the display.
| -rw-r--r-- | lisp/info.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el index 089f2fb6bf7..b3744c8bcd6 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -896,7 +896,7 @@ N is the digit argument used to invoke this command." | |||
| 896 | (while (progn (setq flag (not (pos-visible-in-window-p (point-max)))) | 896 | (while (progn (setq flag (not (pos-visible-in-window-p (point-max)))) |
| 897 | (message (if flag "Type Space to see more" | 897 | (message (if flag "Type Space to see more" |
| 898 | "Type Space to return to Info")) | 898 | "Type Space to return to Info")) |
| 899 | (if (/= ?\ (setq ch (read-char))) | 899 | (if (not (eq ?\ (setq ch (read-event)))) |
| 900 | (progn (setq unread-command-events (list ch)) nil) | 900 | (progn (setq unread-command-events (list ch)) nil) |
| 901 | flag)) | 901 | flag)) |
| 902 | (scroll-up))))) | 902 | (scroll-up))))) |