(Helper-help): Use read-key-sequence.
This commit is contained in:
parent
32e986d4b3
commit
3c61e53471
1 changed files with 1 additions and 1 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue