Commit 3c61e534 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 32e986d4
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment