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) |