diff options
-rw-r--r-- | lisp/dired-aux.el | 2 | ||||
-rw-r--r-- | lisp/ebuff-menu.el | 5 | ||||
-rw-r--r-- | lisp/help.el | 11 | ||||
-rw-r--r-- | lisp/hexl.el | 4 |
4 files changed, 11 insertions, 11 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index eea28769d93..d94285f7544 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -539,7 +539,7 @@ and use this command with a prefix argument (the value does not matter)." ;; Query user and return nil or t. ;; Store answer in symbol VAR (which must initially be bound to nil). ;; Format PROMPT with ARGS. - ;; Binding variable help-form will help the user who types C-h. + ;; Binding variable help-form will help the user who types the help key. (let* ((char (symbol-value qs-var)) (action (cdr (assoc char dired-query-alist)))) (cond ((eq 'yes action) diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el index de244ee026b..5a199d5a58e 100644 --- a/lisp/ebuff-menu.el +++ b/lisp/ebuff-menu.el @@ -29,9 +29,6 @@ (require 'electric) -(defvar help-key "\C-h" - "*Key used to invoke electric help.") - ;; this depends on the format of list-buffers (from src/buffer.c) and ;; on stuff in lisp/buff-menu.el @@ -159,7 +156,7 @@ electric-buffer-menu-mode-hook if it is non-nil." (fillarray (lookup-key map "\e") 'Electric-buffer-menu-undefined) (define-key map "\C-z" 'suspend-emacs) (define-key map "v" 'Electric-buffer-menu-mode-view-buffer) - (define-key map help-key 'Helper-help) + (define-key map help-char 'Helper-help) (define-key map "?" 'Helper-describe-bindings) (define-key map "\C-c" nil) (define-key map "\C-c\C-c" 'Electric-buffer-menu-quit) diff --git a/lisp/help.el b/lisp/help.el index 0ff43dad72b..34b3db6882b 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -26,10 +26,13 @@ (defvar help-map (make-sparse-keymap) "Keymap for characters following the Help key.") -(define-key global-map "\C-h" 'help-command) +(defvar help-key "\C-h" + "*Key used to invoke electric help.") + +(define-key global-map help-key 'help-command) (fset 'help-command help-map) -(define-key help-map "\C-h" 'help-for-help) +(define-key help-map help-key 'help-for-help) (define-key help-map "?" 'help-for-help) (define-key help-map "\C-c" 'describe-copying) @@ -200,7 +203,7 @@ describes the minor mode." (print-help-return-message))) (defun help-for-help () - "You have typed C-h, the help character. Type a Help option: + "You have typed \\[help-for-help], the help character. Type a Help option: A command-apropos. Give a substring, and see a list of commands (functions interactively callable) that contain @@ -228,7 +231,7 @@ C-n print news of recent Emacs changes. C-w print information on absence of warranty for GNU Emacs." (interactive) (message - "A B C F I K L M N S T V W C-c C-d C-n C-w. Type C-h again for more help: ") + "A B C F I K L M N S T V W C-c C-d C-n C-w. Type \\[help-for-help] again for more help: ") (let ((char (read-char))) (if (or (= char ?\C-h) (= char ??)) (save-window-excursion diff --git a/lisp/hexl.el b/lisp/hexl.el index e5a2b1e0e0e..dce544dcb84 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -589,8 +589,8 @@ You may also type up to 3 octal digits, to insert a character with that code" (define-key hexl-mode-map "\C-e" 'hexl-end-of-line) (define-key hexl-mode-map "\C-f" 'hexl-forward-char) - (if (not (eq (key-binding help-key) 'help-command)) - (define-key hexl-mode-map help-key 'undefined)) + (if (not (eq (key-binding help-char) 'help-command)) + (define-key hexl-mode-map help-char 'undefined)) (define-key hexl-mode-map "\C-i" 'hexl-self-insert-command) (define-key hexl-mode-map "\C-j" 'hexl-self-insert-command) |