Mercurial > emacs
diff lisp/emacs-lisp/helper.el @ 11758:eb208ec6d216
(Helper-help): Use read-key-sequence.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 08 May 1995 21:09:17 +0000 |
parents | 2018a5a1da69 |
children | 83f275dcd93a |
line wrap: on
line diff
--- a/lisp/emacs-lisp/helper.el Mon May 08 19:50:10 1995 +0000 +++ b/lisp/emacs-lisp/helper.el Mon May 08 21:09:17 1995 +0000 @@ -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))