diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-02-08 03:52:28 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-02-08 03:52:28 +0000 |
| commit | c2dc164babb445e0992826e6d95111fd268e465f (patch) | |
| tree | 20cb67ea8726799180c0b752d050c09d1996513c /lisp/terminal.el | |
| parent | 1d6f2c93e4504c8cde058b45613009949251f4a3 (diff) | |
| download | emacs-c2dc164babb445e0992826e6d95111fd268e465f.tar.gz | |
(te-pass-through): Don't presume internal bit layout of non-ASCII keys.
Diffstat (limited to 'lisp/terminal.el')
| -rw-r--r-- | lisp/terminal.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/terminal.el b/lisp/terminal.el index 618172a2b96..a6cd3f13eac 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -435,7 +435,7 @@ lets you type a terminal emulator command." (setq last-input-char (get last-input-char 'ascii-character))) ;; Convert meta characters to 8-bit form for transmission. (if (and (integerp last-input-char) - (not (zerop (logand last-input-char (lsh 1 23))))) + (not (zerop (logand last-input-char ?\M-\^@)))) (setq last-input-char (+ 128 (logand last-input-char 127)))) ;; Now ignore all but actual characters. ;; (It ought to be possible to send through function |