Mercurial > emacs
comparison lisp/help.el @ 12424:aa25c9b2e043
Bind f1 and help like C-h.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 29 Jun 1995 02:50:52 +0000 |
parents | 543a76aa50b9 |
children | 778d57f8c0f1 |
comparison
equal
deleted
inserted
replaced
12423:ee433b44920d | 12424:aa25c9b2e043 |
---|---|
37 | 37 |
38 (defvar help-mode-map (make-sparse-keymap) | 38 (defvar help-mode-map (make-sparse-keymap) |
39 "Keymap for help mode.") | 39 "Keymap for help mode.") |
40 | 40 |
41 (define-key global-map (char-to-string help-char) 'help-command) | 41 (define-key global-map (char-to-string help-char) 'help-command) |
42 (define-key global-map [help] 'help-command) | |
43 (define-key global-map [f1] 'help-command) | |
42 (fset 'help-command help-map) | 44 (fset 'help-command help-map) |
43 | 45 |
44 (define-key help-map (char-to-string help-char) 'help-for-help) | 46 (define-key help-map (char-to-string help-char) 'help-for-help) |
47 (define-key help-map [help] 'help-for-help) | |
48 (define-key help-map [f1] 'help-for-help) | |
45 (define-key help-map "?" 'help-for-help) | 49 (define-key help-map "?" 'help-for-help) |
46 | 50 |
47 (define-key help-map "\C-c" 'describe-copying) | 51 (define-key help-map "\C-c" 'describe-copying) |
48 (define-key help-map "\C-d" 'describe-distribution) | 52 (define-key help-map "\C-d" 'describe-distribution) |
49 (define-key help-map "\C-w" 'describe-no-warranty) | 53 (define-key help-map "\C-w" 'describe-no-warranty) |