X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fchartab.c;h=79490126c4d2f78effa4dd82bfea72b29bbf2fcb;hb=ee10bc21f0c13707743d20773e17fe917810f744;hp=e77cbcb8e80163686de9c1118cd9daa78e3ca045;hpb=41aa39d3dc82d2e796266539c39ec2b289c563e2;p=chise%2Fxemacs-chise.git.1

diff --git a/src/chartab.c b/src/chartab.c
index e77cbcb..7949012 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -1146,6 +1146,8 @@ Lisp_Object Q_component;
 Lisp_Object Q_component_of;
 Lisp_Object Q_same;
 Lisp_Object Q_same_of;
+Lisp_Object Q_vulgar;
+Lisp_Object Q_vulgar_of;
 Lisp_Object Qto_ucs;
 Lisp_Object Q_ucs_unified;
 Lisp_Object Qcompat;
@@ -3516,6 +3518,8 @@ Store CHARACTER's ATTRIBUTE with VALUE.
 	    EQ (attribute, Q_component_of) ||
 	    EQ (attribute, Q_same) ||
 	    EQ (attribute, Q_same_of) ||
+	    EQ (attribute, Q_vulgar) ||
+	    EQ (attribute, Q_vulgar_of) ||
 	    !NILP (Fstring_match (build_string ("^<-simplified[^*]*$"),
 				  Fsymbol_name (attribute),
 				  Qnil, Qnil)) )
@@ -3546,6 +3550,10 @@ Store CHARACTER's ATTRIBUTE with VALUE.
 	rev_feature = Q_same_of;
       else if (EQ (attribute, Q_same_of))
 	rev_feature = Q_same;
+      else if (EQ (attribute, Q_vulgar))
+	rev_feature = Q_vulgar_of;
+      else if (EQ (attribute, Q_vulgar_of))
+	rev_feature = Q_vulgar;
       else
 	{
 	  Lisp_String* name = symbol_name (XSYMBOL (attribute));
@@ -4611,6 +4619,8 @@ syms_of_chartab (void)
   defsymbol (&Q_component_of,		"<-ideographic-component-forms");
   defsymbol (&Q_same,			"->same");
   defsymbol (&Q_same_of,		"<-same");
+  defsymbol (&Q_vulgar,			"->vulgar");
+  defsymbol (&Q_vulgar_of,		"<-vulgar");
   defsymbol (&Qcomposition,		"composition");
   defsymbol (&Q_decomposition,		"->decomposition");
   defsymbol (&Qcompat,			"compat");