diff options
| author | Richard M. Stallman | 1995-05-08 21:09:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-05-08 21:09:17 +0000 |
| commit | 3c61e53471ece02fb2307fba594aee82b1b53947 (patch) | |
| tree | c19c776a969128f872c747c16500b23b8caa1e24 /lisp | |
| parent | 32e986d4b3ea8240d475eb9f885fca14ec4df4b3 (diff) | |
| download | emacs-3c61e53471ece02fb2307fba594aee82b1b53947.tar.gz emacs-3c61e53471ece02fb2307fba594aee82b1b53947.zip | |
(Helper-help): Use read-key-sequence.
Diffstat (limited to 'lisp')
| -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 @@ | |||
| 140 | (let ((continue t) c) | 140 | (let ((continue t) c) |
| 141 | (while continue | 141 | (while continue |
| 142 | (message "Help (Type ? for further options)") | 142 | (message "Help (Type ? for further options)") |
| 143 | (setq c (char-to-string (downcase (read-char)))) | 143 | (setq c (read-key-sequence nil)) |
| 144 | (setq c (lookup-key Helper-help-map c)) | 144 | (setq c (lookup-key Helper-help-map c)) |
| 145 | (cond ((eq c 'Helper-help-options) | 145 | (cond ((eq c 'Helper-help-options) |
| 146 | (Helper-help-options)) | 146 | (Helper-help-options)) |