From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 8 Feb 1995 03:52:28 +0000 (+0000)
Subject: (te-pass-through): Don't presume internal bit layout of non-ASCII keys.
X-Git-Tag: emacs-19.34~5164
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f5787aee4c15d7596d625c240f93b4569d7d9c2;p=emacs.git

(te-pass-through): Don't presume internal bit layout of non-ASCII keys.
---

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