Mercurial > emacs
diff lisp/echistory.el @ 918:94b50bbd43c3
*** empty log message ***
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Mon, 03 Aug 1992 22:05:14 +0000 |
| parents | 20674ae6bf52 |
| children | 567b06901789 |
line wrap: on
line diff
--- a/lisp/echistory.el Mon Aug 03 21:49:55 1992 +0000 +++ b/lisp/echistory.el Mon Aug 03 22:05:14 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 "\C-h" 'Helper-help) + (define-key electric-history-map 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) @@ -131,7 +131,7 @@ (defun Electric-history-undefined () (interactive) (ding) - (message "Type C-h for help, ? for commands, C-c to quit, Space to execute") + (message (substitute-command-keys "Type \\[Help-for-help] for help, ? for commands, C-c to quit, Space to execute")) (sit-for 4)) (defun Electric-history-quit ()