From 9f5787aee4c15d7596d625c240f93b4569d7d9c2 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 8 Feb 1995 03:52:28 +0000 Subject: (te-pass-through): Don't presume internal bit layout of non-ASCII keys. --- lisp/terminal.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/terminal.el') 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 -- cgit v1.2.3