Mercurial > emacs
comparison lisp/terminal.el @ 3387:39cec9ca3046
(te-pass-through): Delete debugging code left by mistake.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Jun 1993 05:36:19 +0000 |
| parents | fef642d4f5c0 |
| children | 507f64624555 |
comparison
equal
deleted
inserted
replaced
| 3386:bc4729d67e6e | 3387:39cec9ca3046 |
|---|---|
| 421 "Character is passed to the program running under the terminal emulator. | 421 "Character is passed to the program running under the terminal emulator. |
| 422 One characters is treated specially: | 422 One characters is treated specially: |
| 423 the terminal escape character (normally C-^) | 423 the terminal escape character (normally C-^) |
| 424 lets you type a terminal emulator command." | 424 lets you type a terminal emulator command." |
| 425 (interactive) | 425 (interactive) |
| 426 (setq list (cons last-input-char list)) | |
| 427 (cond ((eq last-input-char terminal-escape-char) | 426 (cond ((eq last-input-char terminal-escape-char) |
| 428 (call-interactively 'te-escape)) | 427 (call-interactively 'te-escape)) |
| 429 (t | 428 (t |
| 430 ;; Convert `return' to C-m, etc. | 429 ;; Convert `return' to C-m, etc. |
| 431 (if (and (symbolp last-input-char) | 430 (if (and (symbolp last-input-char) |
| 433 (setq last-input-char (get last-input-char 'ascii-character))) | 432 (setq last-input-char (get last-input-char 'ascii-character))) |
| 434 ;; Convert meta characters to 8-bit form for transmission. | 433 ;; Convert meta characters to 8-bit form for transmission. |
| 435 (if (and (integerp last-input-char) | 434 (if (and (integerp last-input-char) |
| 436 (not (zerop (logand last-input-char (lsh 1 23))))) | 435 (not (zerop (logand last-input-char (lsh 1 23))))) |
| 437 (setq last-input-char (+ 128 (logand last-input-char 127)))) | 436 (setq last-input-char (+ 128 (logand last-input-char 127)))) |
| 438 (setq list (cons (list 'really last-input-char) list)) | |
| 439 ;; Now ignore all but actual characters. | 437 ;; Now ignore all but actual characters. |
| 440 ;; (It ought to be possible to send through function | 438 ;; (It ought to be possible to send through function |
| 441 ;; keys as character sequences if we add a description | 439 ;; keys as character sequences if we add a description |
| 442 ;; to our termcap entry of what they should look like.) | 440 ;; to our termcap entry of what they should look like.) |
| 443 (if (integerp last-input-char) | 441 (if (integerp last-input-char) |