# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738912979 0
# Node ID 39cec9ca3046e4e9327dbe017fa011204c32f2e7
# Parent  bc4729d67e6e06814790f13dc05736152ac6652b
(te-pass-through): Delete debugging code left by mistake.

diff -r bc4729d67e6e -r 39cec9ca3046 lisp/terminal.el
--- a/lisp/terminal.el	Tue Jun 01 05:31:15 1993 +0000
+++ b/lisp/terminal.el	Tue Jun 01 05:36:19 1993 +0000
@@ -423,7 +423,6 @@
 the terminal escape character (normally C-^)
 lets you type a terminal emulator command."
   (interactive)
-  (setq list (cons last-input-char list))
   (cond ((eq last-input-char terminal-escape-char)
 	 (call-interactively 'te-escape))
 	(t
@@ -435,7 +434,6 @@
 	 (if (and (integerp last-input-char)
 		  (not (zerop (logand last-input-char (lsh 1 23)))))
 	     (setq last-input-char (+ 128 (logand last-input-char 127))))
-	 (setq list (cons (list 'really last-input-char) list))
 	 ;; Now ignore all but actual characters.
 	 ;; (It ought to be possible to send through function
 	 ;; keys as character sequences if we add a description