diff options
| -rw-r--r-- | lisp/info.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index e88824c1e11..2f9ec3c4f0f 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -38,7 +38,7 @@ | |||
| 38 | (eval-when-compile (require 'jka-compr)) | 38 | (eval-when-compile (require 'jka-compr)) |
| 39 | 39 | ||
| 40 | (defgroup info nil | 40 | (defgroup info nil |
| 41 | "Info subsystem" | 41 | "Info subsystem." |
| 42 | :group 'help | 42 | :group 'help |
| 43 | :group 'docs) | 43 | :group 'docs) |
| 44 | 44 | ||
| @@ -2868,7 +2868,7 @@ Build a menu of the possible matches." | |||
| 2868 | (while (progn (setq flag (not (pos-visible-in-window-p (point-max)))) | 2868 | (while (progn (setq flag (not (pos-visible-in-window-p (point-max)))) |
| 2869 | (message (if flag "Type Space to see more" | 2869 | (message (if flag "Type Space to see more" |
| 2870 | "Type Space to return to Info")) | 2870 | "Type Space to return to Info")) |
| 2871 | (if (not (eq ?\ (setq ch (read-event)))) | 2871 | (if (not (eq ?\s (setq ch (read-event)))) |
| 2872 | (progn (setq unread-command-events (list ch)) nil) | 2872 | (progn (setq unread-command-events (list ch)) nil) |
| 2873 | flag)) | 2873 | flag)) |
| 2874 | (scroll-up))) | 2874 | (scroll-up))) |