Bind f1 and help like C-h.

diff --git a/lisp/help.el b/lisp/help.el
index 296975f66f38dff95468c6c516844d9abfb86a28..3275689fb1f4fe87360ee01a36f48a02f60cd02c 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -39,9 +39,13 @@
   "Keymap for help mode.")
 
 (define-key global-map (char-to-string help-char) 'help-command)
+(define-key global-map [help] 'help-command)
+(define-key global-map [f1] 'help-command)
 (fset 'help-command help-map)
 
 (define-key help-map (char-to-string help-char) 'help-for-help)
+(define-key help-map [help] 'help-for-help)
+(define-key help-map [f1] 'help-for-help)
 (define-key help-map "?" 'help-for-help)
 
 (define-key help-map "\C-c" 'describe-copying)