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 | 3c2758e90334b7d3a141926926de465111f5535b (patch) | |
| tree | 605af906983c7897a5f63d2f88582c031754ae81 /lisp/terminal.el | |
| parent | cccd719e434f078dfc64891f6579564d84c24334 (diff) | |
| download | emacs-3c2758e90334b7d3a141926926de465111f5535b.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 |