From: Kenichi Handa <handa@m17n.org>
Date: Wed, 8 Sep 1999 11:16:02 +0000 (+0000)
Subject: Reset MSBs of arguments of MAKE_CHAR.
X-Git-Tag: emacs-pretest-21.0.90~6832
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ad3f83d15da1a73dc58370be01fd17e82decf38;p=emacs.git

Reset MSBs of arguments of MAKE_CHAR.
---

diff --git a/src/charset.c b/src/charset.c
index 91f510476a0..66d53003b0d 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -423,7 +423,7 @@ translate_char (table, c, charset, c1, c2)
   Lisp_Object ch;
   int alt_charset, alt_c1, alt_c2, dimension;
 
-  if (c < 0) c = MAKE_CHAR (charset, c1, c2);
+  if (c < 0) c = MAKE_CHAR (charset, (c1 & 0x7F) , (c2 & 0x7F));
   if (!CHAR_TABLE_P (table)
       || (ch = Faref (table, make_number (c)), !NATNUMP (ch)))
     return c;