From: tomo <tomo>
Date: Fri, 2 Jun 2000 04:19:17 +0000 (+0000)
Subject: (Vcharacter_total_strokes_table): New variable.
X-Git-Tag: r21-2-33-utf-2000-0_16~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e5bc92c523e7581792e854dc24daf8ade3c745d;p=chise%2Fxemacs-chise.git.1

(Vcharacter_total_strokes_table): New variable.
(Qtotal_strokes): New variable.
(Fchar_attribute_alist): Use `Vcharacter_total_strokes_table' for
`total-strokes' attribute.
(Fget_char_attribute): Likewise.
(Fput_char_attribute): Likewise.
(syms_of_mule_charset): Add new symbol `total-strokes'.
(vars_of_mule_charset): Setup `Vcharacter_total_strokes_table'.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 704774a..a16fe1a 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -423,11 +423,13 @@ put_char_id_table (Emchar ch, Lisp_Object value, Lisp_Object table)
 
 Lisp_Object Vcharacter_attribute_table;
 Lisp_Object Vcharacter_name_table;
+Lisp_Object Vcharacter_total_strokes_table;
 Lisp_Object Vcharacter_decomposition_table;
 Lisp_Object Vcharacter_composition_table;
 Lisp_Object Vcharacter_variant_table;
 
 Lisp_Object Qname;
+Lisp_Object Qtotal_strokes;
 Lisp_Object Q_decomposition;
 Lisp_Object Qucs;
 Lisp_Object Q_ucs;
@@ -562,6 +564,10 @@ Return the alist of attributes of CHARACTER.
   if (!NILP (ret))
     alist = Fcons (Fcons (Qname, ret), alist);
 
+  ret = get_char_id_table (XCHAR (character), Vcharacter_total_strokes_table);
+  if (!NILP (ret))
+    alist = Fcons (Fcons (Qtotal_strokes, ret), alist);
+
   ret = get_char_id_table (XCHAR (character),
 			   Vcharacter_decomposition_table);
   if (!NILP (ret))
@@ -591,6 +597,11 @@ Return the value of CHARACTER's ATTRIBUTE.
     {
       return get_char_id_table (XCHAR (character), Vcharacter_name_table);
     }
+  else if (EQ (attribute, Qtotal_strokes))
+    {
+      return get_char_id_table (XCHAR (character),
+				Vcharacter_total_strokes_table);
+    }
   else if (EQ (attribute, Q_decomposition))
     {
       return get_char_id_table (XCHAR (character),
@@ -627,6 +638,13 @@ Store CHARACTER's ATTRIBUTE with VALUE.
       put_char_id_table (XCHAR (character), value, Vcharacter_name_table);
       return value;
     }
+  else if (EQ (attribute, Qtotal_strokes))
+    {
+      CHECK_INT (value);
+      put_char_id_table (XCHAR (character), value,
+			 Vcharacter_total_strokes_table);
+      return value;
+    }
   else if (EQ (attribute, Q_decomposition))
     {
       Lisp_Object seq;
@@ -2972,6 +2990,7 @@ syms_of_mule_charset (void)
   defsymbol (&Qchinese_cns11643_2,	"chinese-cns11643-2");
 #ifdef UTF2000
   defsymbol (&Qname,			"name");
+  defsymbol (&Qtotal_strokes,		"total-strokes");
   defsymbol (&Q_ucs,			"->ucs");
   defsymbol (&Q_decomposition,		"->decomposition");
   defsymbol (&Qcompat,			"compat");
@@ -3084,6 +3103,9 @@ Version number of UTF-2000.
   staticpro (&Vcharacter_name_table);
   Vcharacter_name_table = make_char_id_table (Qnil, 0);
 
+  /* staticpro (&Vcharacter_name_table); */
+  Vcharacter_total_strokes_table = make_char_id_table (Qnil, -1);
+
   /* staticpro (&Vcharacter_decomposition_table); */
   Vcharacter_decomposition_table = make_char_id_table (Qnil, -1);