From: tomo <tomo>
Date: Sun, 14 Nov 1999 06:30:17 +0000 (+0000)
Subject: (Fput_char_attribute): Allow GR code-point if a coded-charset is a
X-Git-Tag: r21-2-19-utf-2000-0_12-0~54
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0177372e6ce6f32d034218297dea7cfe26dbed18;p=chise%2Fxemacs-chise.git-

(Fput_char_attribute): Allow GR code-point if a coded-charset is a
GR-set.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index d093f54..6994055 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -575,6 +575,8 @@ Store CHARACTER's ATTRIBUTE with VALUE.
 	  i = XINT (ei);
 	  if ((i < 0) || (255 < i))
 	    signal_simple_error ("Invalid value for coded-charset", value);
+	  if (XCHARSET_GRAPHIC (ccs) == 1)
+	    i &= 0x7F;
 	  i -= XCHARSET_BYTE_OFFSET (ccs);
 	  nv = XVECTOR_DATA(v)[i];
 	  rest = Fcdr (rest);