diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-13 17:07:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-13 17:07:03 +0000 |
| commit | 498b18c09f167d44a6a807b6e34ece1a2c58fbf1 (patch) | |
| tree | 81f0049148db5ed6911e2e43658a50a4f3ad368f /lisp/help-macro.el | |
| parent | 1be401af812213a3e900ec935db6e32bba6d7b49 (diff) | |
| download | emacs-498b18c09f167d44a6a807b6e34ece1a2c58fbf1.tar.gz | |
(make-help-screen): Explicitly translate key thru function-key-map.
Diffstat (limited to 'lisp/help-macro.el')
| -rw-r--r-- | lisp/help-macro.el | 10 |
1 files 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 |