diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-05-08 21:09:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-05-08 21:09:17 +0000 |
| commit | 3c61e53471ece02fb2307fba594aee82b1b53947 (patch) | |
| tree | c19c776a969128f872c747c16500b23b8caa1e24 /lisp/emacs-lisp/helper.el | |
| parent | 32e986d4b3ea8240d475eb9f885fca14ec4df4b3 (diff) | |
| download | emacs-3c61e53471ece02fb2307fba594aee82b1b53947.tar.gz | |
(Helper-help): Use read-key-sequence.
Diffstat (limited to 'lisp/emacs-lisp/helper.el')
| -rw-r--r-- | lisp/emacs-lisp/helper.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el index 9f9f1dc752e..23be7ae7e1c 100644 --- a/lisp/emacs-lisp/helper.el +++ b/lisp/emacs-lisp/helper.el @@ -140,7 +140,7 @@ (let ((continue t) c) (while continue (message "Help (Type ? for further options)") - (setq c (char-to-string (downcase (read-char)))) + (setq c (read-key-sequence nil)) (setq c (lookup-key Helper-help-map c)) (cond ((eq c 'Helper-help-options) (Helper-help-options)) |