diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-01 05:36:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-01 05:36:19 +0000 |
| commit | 94869b3e5cf2ad82e06f6a17ac9b1cfc2b7459e9 (patch) | |
| tree | c947a0324b052c469e39e0bde6972ee0f507ae05 /lisp/terminal.el | |
| parent | dd3b6039b8682f44af36dc98b5901241e6f26d05 (diff) | |
| download | emacs-94869b3e5cf2ad82e06f6a17ac9b1cfc2b7459e9.tar.gz | |
(te-pass-through): Delete debugging code left by mistake.
Diffstat (limited to 'lisp/terminal.el')
| -rw-r--r-- | lisp/terminal.el | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lisp/terminal.el b/lisp/terminal.el index 8abcf9d4302..31e22f4d10d 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -423,7 +423,6 @@ One characters is treated specially: 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 @@ lets you type a terminal emulator command." (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 |