X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fconcord.git;a=blobdiff_plain;f=symbol.c;h=96d1feeaa81533c181fe993c6ee624e457cef72e;hp=e2d82fdbed728f0f514b704978722234e612a0cb;hb=e99e93e4773c5f3472b088db2659f7a848cbcc21;hpb=699b570aa571b288dcb6532518dc8194ed0b70ec

diff --git a/symbol.c b/symbol.c
index e2d82fd..96d1fee 100644
--- a/symbol.c
+++ b/symbol.c
@@ -53,6 +53,20 @@ COS_Symbol_ent cos_symbol_ent_t = { {COS_OBJECT_PREFIX_OBJECT,
 COS_Symbol cos_Qt = &cos_symbol_ent_t;
 
 
+COS_String_ent cos_string_ent_composition = { {COS_OBJECT_PREFIX_OBJECT,
+					       COS_Object_Type_String,
+					       1},
+					      3, "composition"};
+
+COS_Symbol_ent cos_symbol_ent_composition = { {COS_OBJECT_PREFIX_OBJECT,
+					       COS_Object_Type_Symbol,
+					       1},
+					      &cos_string_ent_composition,
+					      NULL};
+
+COS_Symbol cos_Qcomposition = &cos_symbol_ent_composition;
+
+
 COS_Symbol_Table cos_default_symbol_table = NULL;
 
 
@@ -84,7 +98,8 @@ cos_release_symbol (COS_Object obj)
   if (obj == NULL)
     return 0;
 
-  if ( (obj == cos_Qnil) || (obj == cos_Qt) )
+  if ( (obj == cos_Qnil) || (obj == cos_Qt) ||
+       (obj == cos_Qcomposition) )
     return 0;
 
   if ( ((COS_Symbol)obj)->value != NULL)
@@ -250,6 +265,7 @@ cos_intern (COS_object name)
       cos_default_symbol_table = cos_make_symbol_table();
       cos_symbol_table_set (cos_default_symbol_table, cos_Qnil);
       cos_symbol_table_set (cos_default_symbol_table, cos_Qt);
+      cos_symbol_table_set (cos_default_symbol_table, cos_Qcomposition);
     }
   return cos_symbol_table_intern (cos_default_symbol_table, name);
 }