mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1995-05-08 21:09:17 +00:00
parent 32e986d4b3
commit 3c61e53471
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emacs-lisp/helper.el
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))