From 3c61e53471ece02fb2307fba594aee82b1b53947 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 8 May 1995 21:09:17 +0000 Subject: [PATCH] (Helper-help): Use read-key-sequence. --- lisp/emacs-lisp/helper.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.2