Commit e17d2fd1 authored by Eric S. Raymond's avatar Eric S. Raymond

entered into RCS

parent 8892e83c
......@@ -221,7 +221,7 @@ Does not execute select, save, or delete commands."
(ding)
(message (if (and (eq (key-binding "\C-c\C-c") 'Electric-buffer-menu-quit)
(eq (key-binding " ") 'Electric-buffer-menu-select)
(eq (key-binding help-key) 'Helper-help)
(eq (key-binding (char-to-string help-char)) 'Helper-help)
(eq (key-binding "?") 'Helper-describe-bindings))
(substitute-command-keys "Type C-c C-c to exit, Space to select, \\[Helper-help] for help, ? for commands")
(substitute-command-keys "\
......
......@@ -63,7 +63,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing."
(define-key electric-history-map "\C-c\C-c" 'Electric-history-quit)
(define-key electric-history-map "\C-]" 'Electric-history-quit)
(define-key electric-history-map "\C-z" 'suspend-emacs)
(define-key electric-history-map help-char 'Helper-help)
(define-key electric-history-map (char-to-string help-char) 'Helper-help)
(define-key electric-history-map "?" 'Helper-describe-bindings)
(define-key electric-history-map "\e>" 'end-of-buffer)
(define-key electric-history-map "\e<" 'beginning-of-buffer)
......
......@@ -26,10 +26,10 @@
(defvar help-map (make-sparse-keymap)
"Keymap for characters following the Help key.")
(define-key global-map help-key 'help-command)
(define-key global-map (char-to-string help-char) 'help-command)
(fset 'help-command help-map)
(define-key help-map help-char 'help-for-help)
(define-key help-map (char-to-string help-char) 'help-for-help)
(define-key help-map "?" 'help-for-help)
(define-key help-map "\C-c" 'describe-copying)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment