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 | 9f5787aee4c15d7596d625c240f93b4569d7d9c2 (patch) | |
| tree | 72b7eb150ae404041fda63c4f01252cf6ec9ab15 /lisp/terminal.el | |
| parent | da16e6483d36a39907417cee18c13d90c2af06e8 (diff) | |
| download | emacs-9f5787aee4c15d7596d625c240f93b4569d7d9c2.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 |