changeset 11424:29493ce2d1ca

(make-help-screen): Explicitly translate key thru function-key-map.
author Richard M. Stallman <rms@gnu.org>
date Thu, 13 Apr 1995 17:07:03 +0000
parents a096f82d87d9
children bcb88697b70b
files lisp/help-macro.el
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-macro.el	Thu Apr 13 17:06:05 1995 +0000
+++ b/lisp/help-macro.el	Thu Apr 13 17:07:03 1995 +0000
@@ -104,9 +104,13 @@
 		     (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