Mercurial > emacs

comparison lisp/help.el @ 732:a8d94735277e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Tue, 30 Jun 1992 13:54:21 +0000
parents 08eb386dd0f3
children e43123226372
comparison
equal deleted inserted replaced
731:5c6db33a9ef6 732:a8d94735277e
16 16
17 ;; You should have received a copy of the GNU General Public License 17 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs; see the file COPYING. If not, write to 18 ;; along with GNU Emacs; see the file COPYING. If not, write to
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
20 20
21 ;;;###autoload
22 (defvar help-map (make-sparse-keymap) 21 (defvar help-map (make-sparse-keymap)
23 "Keymap for characters following the Help key.") 22 "Keymap for characters following the Help key.")
24 23
25 (define-key global-map "\C-h" 'help-command) 24 (define-key global-map "\C-h" 'help-command)
26 (fset 'help-command help-map) 25 (fset 'help-command help-map)
40 39
41 (define-key help-map "d" 'describe-function) 40 (define-key help-map "d" 'describe-function)
42 (define-key help-map "f" 'describe-function) 41 (define-key help-map "f" 'describe-function)
43 42
44 (define-key help-map "i" 'info) 43 (define-key help-map "i" 'info)
44 (define-key help-map "\C-f" 'Info-goto-emacs-command-node)
45 (define-key help-map "\C-k" 'Info-goto-emacs-key-command-node)
45 46
46 (define-key help-map "l" 'view-lossage) 47 (define-key help-map "l" 'view-lossage)
47 48
48 (define-key help-map "m" 'describe-mode) 49 (define-key help-map "m" 'describe-mode)
49 50