# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1094303704 0
# Node ID b1d0e83121809ac6622d9534807838eb1109efbd
# Parent  55fd4f77387ad13b9fce805fff3e874be6aec13c
(te-escape): Show `?' in prompt for help key.

diff -r 55fd4f77387a -r b1d0e8312180 lisp/terminal.el
--- a/lisp/terminal.el	Sat Sep 04 13:13:48 2004 +0000
+++ b/lisp/terminal.el	Sat Sep 04 13:15:04 2004 +0000
@@ -209,9 +209,13 @@
           (use-local-map terminal-escape-map)
           (setq s (read-key-sequence
                     (if current-prefix-arg
-                        (format "Emacs Terminal escape> %d "
+                        (format "Emacs Terminal escape[%s for help]> %d "
+				(substitute-command-keys
+				 "\\<terminal-escape-map>\\[te-escape-help]")
                                 (prefix-numeric-value current-prefix-arg))
-                        "Emacs Terminal escape> "))))
+                        (format "Emacs Terminal escape[%s for help]> "
+				(substitute-command-keys
+				 "\\<terminal-escape-map>\\[te-escape-help]"))))))
       (use-global-map global)
       (use-local-map local))