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