Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/terminal.el Wed Feb 08 03:51:58 1995 +0000 +++ b/lisp/terminal.el Wed Feb 08 03:52:28 1995 +0000 @@ -435,7 +435,7 @@ (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