Mercurial > emacs
changeset 930:1dac458b5117
*** empty log message ***
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Tue, 04 Aug 1992 17:18:16 +0000 |
| parents | 27262a6c632a |
| children | f23882d7315a |
| files | lisp/info.el lisp/view.el |
| diffstat | 2 files changed, 14 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Tue Aug 04 16:49:42 1992 +0000 +++ b/lisp/info.el Tue Aug 04 17:18:16 1992 +0000 @@ -893,7 +893,7 @@ (define-key Info-mode-map "q" 'Info-exit) (define-key Info-mode-map "s" 'Info-search) (define-key Info-mode-map "u" 'Info-up) - (define-key Info-mode-map "\177" 'scroll-down) + (define-key Info-mode-map "\177" 'Info-scroll-down) ) ;; Info mode is suitable only for specially formatted data. @@ -919,8 +919,11 @@ \\[Info-last] Move to the last node you were at. Moving within a node: -\\[scroll-up] scroll forward a full screen. \\[scroll-down] scroll backward. -\\[beginning-of-buffer] Go to beginning of node. +\\[scroll-up] Normally, scroll forward a full screen. If the end of the buffer is +already visible, try to go to the next menu entry, or up if there is none. +\\[scroll-down] Normally, scroll backward. If the beginning of the buffer is +already visible, try to go to the previous menu entry, or up if there is none. +\\[beginning-of-buffer] Go to beginning of node. Advanced commands: \\[Info-exit] Quit Info: reselect previously selected buffer. @@ -930,7 +933,10 @@ \\[Info-goto-node] Move to node specified by name. You may include a filename as well, as (FILENAME)NODENAME. \\[Info-search] Search through this Info file for specified regexp, - and select the node in which the next occurrence is found." + and select the node in which the next occurrence is found. +\\[Info-next-preorder] Next-preorder; that is, try to go to the next menu item, + and if that fails try to move up, and if that fails, tell user + he/she is done reading." (kill-all-local-variables) (setq major-mode 'Info-mode) (setq mode-name "Info")
--- a/lisp/view.el Tue Aug 04 16:49:42 1992 +0000 +++ b/lisp/view.el Tue Aug 04 17:18:16 1992 +0000 @@ -75,7 +75,7 @@ (define-key view-mode-map "x" 'exchange-point-and-mark) (define-key view-mode-map "h" 'Helper-describe-bindings) (define-key view-mode-map "?" 'Helper-describe-bindings) - (define-key view-mode-map "\C-h" 'Helper-help) + (define-key view-mode-map (char-to-string help-char) 'Helper-help) (define-key view-mode-map "\C-n" 'next-line) (define-key view-mode-map "\C-p" 'previous-line) (define-key view-mode-map "\C-s" 'isearch-forward) @@ -193,7 +193,7 @@ successful search and when jump to line to occurs. The mark is set on jump to buffer start or end. ? or h provide help message (list of commands). -C-h provides help (list of commands or description of a command). +\\[Helper-help] provides help (list of commands or description of a command). C-n moves down lines vertically. C-p moves upward lines vertically. C-l recenters the screen. @@ -282,10 +282,10 @@ (defun view-helpful-message () (message - (if (and (eq (key-binding "\C-h") 'Helper-help) + (if (and (eq (key-binding (char-to-string help-char)) 'Helper-help) (eq (key-binding "?") 'Helper-describe-bindings) (eq (key-binding "\C-c") 'view-exit)) - "Type C-h for help, ? for commands, C-c to quit" + "Type \\[Helper-help] for help, ? for commands, C-c to quit" (substitute-command-keys "Type \\[Helper-help] for help, \\[Helper-describe-bindings] for commands, \\[view-exit] to quit."))))