diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-08-03 22:07:34 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-08-03 22:07:34 +0000 |
| commit | e17d2fd17924c106f91b1cbc8d0a38561e7f00ad (patch) | |
| tree | 14ba5ac9fa19318759a2abf15489f785d17306db /lisp | |
| parent | 8892e83c7c27d449031dd7939dcc7dee3524f49c (diff) | |
| download | emacs-e17d2fd17924c106f91b1cbc8d0a38561e7f00ad.tar.gz | |
entered into RCS
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ebuff-menu.el | 2 | ||||
| -rw-r--r-- | lisp/echistory.el | 2 | ||||
| -rw-r--r-- | lisp/help.el | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el index f9bb8adf3b6..bc05ade43bf 100644 --- a/lisp/ebuff-menu.el +++ b/lisp/ebuff-menu.el @@ -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 "\ diff --git a/lisp/echistory.el b/lisp/echistory.el index 80e8bed764b..e78856143eb 100644 --- a/lisp/echistory.el +++ b/lisp/echistory.el @@ -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) diff --git a/lisp/help.el b/lisp/help.el index 29cf96e42fc..89ed440ff20 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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) |