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 | 8902ae9e18aac6274e2822ea2c4b65de9b103c4a (patch) | |
| tree | 64ae379c396bf9808debbded2f14cfea07741bfe /lisp/help-macro.el | |
| parent | 7a804c76c41ab524a16d4feb71fecd5880270742 (diff) | |
| download | emacs-8902ae9e18aac6274e2822ea2c4b65de9b103c4a.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 |