From: tomo <tomo>
Date: Sun, 14 Nov 1999 09:06:47 +0000 (+0000)
Subject: (Fput_char_attribute): Convert each element of VALUE to GL position if
X-Git-Tag: r21-2-19-utf-2000-0_12-0~42
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=079de2b7d3d365f90c1f46a6f1a089511ae24cac;p=chise%2Fxemacs-chise.git-

(Fput_char_attribute): Convert each element of VALUE to GL position if
ATTRIBUTE is a GR-set,
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 6994055..870a6f5 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -564,6 +564,8 @@ Store CHARACTER's ATTRIBUTE with VALUE.
 	  XCHARSET_DECODING_TABLE (ccs) = v = make_vector (ccs_len, Qnil);
 	}
 
+      if (XCHARSET_GRAPHIC (ccs) == 1)
+	value = Fcopy_list (value);
       rest = value;
       i = -1;
       while (CONSP (rest))
@@ -576,7 +578,10 @@ Store CHARACTER's ATTRIBUTE with VALUE.
 	  if ((i < 0) || (255 < i))
 	    signal_simple_error ("Invalid value for coded-charset", value);
 	  if (XCHARSET_GRAPHIC (ccs) == 1)
-	    i &= 0x7F;
+	    {
+	      i &= 0x7F;
+	      Fsetcar (rest, make_int (i));
+	    }
 	  i -= XCHARSET_BYTE_OFFSET (ccs);
 	  nv = XVECTOR_DATA(v)[i];
 	  rest = Fcdr (rest);