From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 8 May 1995 21:09:17 +0000 (+0000)
Subject: (Helper-help): Use read-key-sequence.
X-Git-Tag: emacs-19.34~4100
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c61e53471ece02fb2307fba594aee82b1b53947;p=emacs.git

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

diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el
index 9f9f1dc752e..23be7ae7e1c 100644
--- a/lisp/emacs-lisp/helper.el
+++ b/lisp/emacs-lisp/helper.el
@@ -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))