# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797792823 0
# Node ID 29493ce2d1cadb18c720e671dcc713ee784fa253
# Parent  a096f82d87d9bf2c4ce3b3362e839fcf7e305019
(make-help-screen): Explicitly translate key thru function-key-map.

diff -r a096f82d87d9 -r 29493ce2d1ca lisp/help-macro.el
--- 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