From: tomo <tomo>
Date: Sun, 9 Feb 2003 10:28:54 +0000 (+0000)
Subject: (Fput_char_attribute): Canonicalise charset-aliases.
X-Git-Tag: r21-4-10-utf-2000-0_20-5~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ab949ba18785573ceb9bac2b8375bf65d5b9c1de;p=chise%2Fxemacs-chise.git

(Fput_char_attribute): Canonicalise charset-aliases.
---

diff --git a/src/chartab.c b/src/chartab.c
index ba6db90..0e33354 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3236,7 +3236,10 @@ Store CHARACTER's ATTRIBUTE with VALUE.
   CHECK_CHAR (character);
 
   if (!NILP (ccs))
-    value = put_char_ccs_code_point (character, ccs, value);
+    {
+      value = put_char_ccs_code_point (character, ccs, value);
+      attribute = XCHARSET_NAME (ccs);
+    }
   else if (EQ (attribute, Q_decomposition))
     put_char_composition (character, value);
   else if (EQ (attribute, Qto_ucs) || EQ (attribute, Q_ucs))