(Helper-help): Use read-key-sequence.

This commit is contained in:
Richard M. Stallman 1995-05-08 21:09:17 +00:00
parent 32e986d4b3
commit 3c61e53471

View file

@ -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))