From 8902ae9e18aac6274e2822ea2c4b65de9b103c4a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 13 Apr 1995 17:07:03 +0000 Subject: [PATCH] (make-help-screen): Explicitly translate key thru function-key-map. --- lisp/help-macro.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 886eaa52b7a..bd129a8aed8 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -104,9 +104,13 @@ and then returns." (setcdr local-map (, helped-map)) (define-key local-map [t] 'undefined) (if three-step-help - (setq key (let ((overriding-local-map local-map)) - (read-key-sequence nil)) - char (aref key 0)) + (progn + (setq key (let ((overriding-local-map local-map)) + (read-key-sequence nil))) + ;; Make the HELP key translate to C-h. + (if (lookup-key function-key-map key) + (setq key (lookup-key function-key-map key))) + (setq char (aref key 0))) (setq char ??)) (if (or (eq char ??) (eq char help-char)) (progn -- 2.39.5