Mercurial > emacs
comparison lisp/terminal.el @ 10694:75792481da0c
(te-pass-through): Don't presume internal bit layout of non-ASCII keys.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 08 Feb 1995 03:52:28 +0000 |
| parents | a4b616f7745c |
| children | e591f74ac16e |
comparison
equal
deleted
inserted
replaced
| 10693:0875851842f0 | 10694:75792481da0c |
|---|---|
| 433 (if (and (symbolp last-input-char) | 433 (if (and (symbolp last-input-char) |
| 434 (get last-input-char 'ascii-character)) | 434 (get last-input-char 'ascii-character)) |
| 435 (setq last-input-char (get last-input-char 'ascii-character))) | 435 (setq last-input-char (get last-input-char 'ascii-character))) |
| 436 ;; Convert meta characters to 8-bit form for transmission. | 436 ;; Convert meta characters to 8-bit form for transmission. |
| 437 (if (and (integerp last-input-char) | 437 (if (and (integerp last-input-char) |
| 438 (not (zerop (logand last-input-char (lsh 1 23))))) | 438 (not (zerop (logand last-input-char ?\M-\^@)))) |
| 439 (setq last-input-char (+ 128 (logand last-input-char 127)))) | 439 (setq last-input-char (+ 128 (logand last-input-char 127)))) |
| 440 ;; Now ignore all but actual characters. | 440 ;; Now ignore all but actual characters. |
| 441 ;; (It ought to be possible to send through function | 441 ;; (It ought to be possible to send through function |
| 442 ;; keys as character sequences if we add a description | 442 ;; keys as character sequences if we add a description |
| 443 ;; to our termcap entry of what they should look like.) | 443 ;; to our termcap entry of what they should look like.) |