diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-08-02 22:05:38 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-08-02 22:05:38 -0700 |
| commit | 9a70f03d70e44db2ec9c6d2952cb8a1deae15000 (patch) | |
| tree | c0efd5c0a208640c0a883f4566df1b40caa3aaad /lisp/info.el | |
| parent | 29c8a348c5c9f326af54a3d30f69cde98fe300bb (diff) | |
| download | emacs-9a70f03d70e44db2ec9c6d2952cb8a1deae15000.tar.gz emacs-9a70f03d70e44db2ec9c6d2952cb8a1deae15000.tar.bz2 emacs-9a70f03d70e44db2ec9c6d2952cb8a1deae15000.zip | |
Merge from trunk.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/lisp/info.el b/lisp/info.el index a4826ee8c2c..447c86b3e9e 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2789,11 +2789,6 @@ N is the digit argument used to invoke this command." (goto-char (point-max))))) (t (error "No previous nodes")))) -(defun Info-beginning-of-buffer () - "Go to the beginnning of the buffer." - (interactive) - (goto-char (point-min))) - (defun Info-scroll-up () "Scroll one screenful forward in Info, considering all nodes as one sequence. Once you scroll far enough in a node that its menu appears on the screen @@ -3655,7 +3650,7 @@ If FORK is non-nil, it is passed to `Info-goto-node'." (defvar Info-mode-map (let ((map (make-keymap))) (suppress-keymap map) - (define-key map "." 'Info-beginning-of-buffer) + (define-key map "." 'beginning-of-buffer) (define-key map " " 'Info-scroll-up) (define-key map "\C-m" 'Info-follow-nearest-node) (define-key map "\t" 'Info-next-reference) @@ -3676,8 +3671,8 @@ If FORK is non-nil, it is passed to `Info-goto-node'." (define-key map "[" 'Info-backward-node) (define-key map "<" 'Info-top-node) (define-key map ">" 'Info-final-node) - (define-key map "b" 'Info-beginning-of-buffer) - (put 'Info-beginning-of-buffer :advertised-binding "b") + (define-key map "b" 'beginning-of-buffer) + (put 'beginning-of-buffer :advertised-binding "b") (define-key map "d" 'Info-directory) (define-key map "e" 'Info-edit) (define-key map "f" 'Info-follow-reference) @@ -3731,7 +3726,7 @@ If FORK is non-nil, it is passed to `Info-goto-node'." :help "Go backward one node, considering all as a sequence"] ["Forward" Info-forward-node :help "Go forward one node, considering all as a sequence"] - ["Beginning" Info-beginning-of-buffer + ["Beginning" beginning-of-buffer :help "Go to beginning of this node"] ["Top" Info-top-node :help "Go to top node of file"] @@ -3937,7 +3932,7 @@ Moving within a node: \\[Info-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. -\\[Info-beginning-of-buffer] Go to beginning of node. +\\[beginning-of-buffer] Go to beginning of node. Advanced commands: \\[Info-search] Search through this Info file for specified regexp, |