# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760344362 0
# Node ID b57901dfbd40aa50a7b921b7390e1ff06613c8f0
# Parent  54baa5a15850c64ca418e7cfc588e884ccef82d5
(te-escape-help, te-more-break-help, terminal-emulator):
Pass just one KEYMAP arg to where-is-internal.

diff -r 54baa5a15850 -r b57901dfbd40 lisp/terminal.el
--- a/lisp/terminal.el	Fri Feb 04 06:45:41 1994 +0000
+++ b/lisp/terminal.el	Fri Feb 04 06:46:02 1994 +0000
@@ -202,7 +202,7 @@
 	 (princ (substitute-command-keys "\\{terminal-escape-map}\n"))
 	 (princ (format "\nSubcommands of \"%s\" (%s)\n"
 			(where-is-internal 'te-escape-extended-command
-					   terminal-escape-map nil t)
+					   terminal-escape-map t)
 			'te-escape-extended-command))
 	 (let ((l (if (fboundp 'sortcar)
 		      (sortcar (copy-sequence te-escape-command-alist)
@@ -377,7 +377,7 @@
       (princ "Terminal-emulator more break.\n\n")
       (princ (format "Type \"%s\" (te-more-break-resume)\n%s\n"
 		     (where-is-internal 'te-more-break-resume
-					terminal-more-break-map nil t)
+					terminal-more-break-map t)
 		     (documentation 'te-more-break-resume)))
       (princ (substitute-command-keys "\\{terminal-more-break-map}\n"))
       (princ "Any other key is passed through to the program
@@ -1140,9 +1140,7 @@
   (message "Entering emacs terminal-emulator...  Type %s %s for help"
 	   (single-key-description terminal-escape-char)
 	   (mapconcat 'single-key-description
-		      (where-is-internal 'te-escape-help
-					 terminal-escape-map
-					 nil t)
+		      (where-is-internal 'te-escape-help terminal-escape-map t)
 		      " ")))