Mercurial > emacs

comparison lisp/help.el @ 12424:aa25c9b2e043

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)