Mercurial > emacs
changeset 919:567b06901789
entered into RCS
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Mon, 03 Aug 1992 22:07:34 +0000 |
| parents | 94b50bbd43c3 |
| children | 7b984ce24013 |
| files | lisp/ebuff-menu.el lisp/echistory.el lisp/help.el |
| diffstat | 3 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ebuff-menu.el Mon Aug 03 22:05:14 1992 +0000 +++ b/lisp/ebuff-menu.el Mon Aug 03 22:07:34 1992 +0000 @@ -221,7 +221,7 @@ (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 "\
--- a/lisp/echistory.el Mon Aug 03 22:05:14 1992 +0000 +++ b/lisp/echistory.el Mon Aug 03 22:07:34 1992 +0000 @@ -63,7 +63,7 @@ (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)
--- a/lisp/help.el Mon Aug 03 22:05:14 1992 +0000 +++ b/lisp/help.el Mon Aug 03 22:07:34 1992 +0000 @@ -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)