(Q_same_of): New variable.
(Fput_char_attribute): Convert char-refs in value of `{->|<-}same' to
characters and put reverse links.
(Fsave_char_attribute_table): Use `Fchar_refs_simplify_char_specs' for
`{->|<-}same'.
(syms_of_chartab): Add new symbols `{->|<-}same'.
Lisp_Object Q_subsumptive_from;
Lisp_Object Q_component;
Lisp_Object Q_component_of;
Lisp_Object Q_subsumptive_from;
Lisp_Object Q_component;
Lisp_Object Q_component_of;
+Lisp_Object Q_same;
+Lisp_Object Q_same_of;
Lisp_Object Qto_ucs;
Lisp_Object Q_ucs_unified;
Lisp_Object Qcompat;
Lisp_Object Qto_ucs;
Lisp_Object Q_ucs_unified;
Lisp_Object Qcompat;
EQ (attribute, Q_identical_from) ||
EQ (attribute, Q_component) ||
EQ (attribute, Q_component_of) ||
EQ (attribute, Q_identical_from) ||
EQ (attribute, Q_component) ||
EQ (attribute, Q_component_of) ||
+ EQ (attribute, Q_same) ||
+ EQ (attribute, Q_same_of) ||
!NILP (Fstring_match (build_string ("^<-simplified[^*]*$"),
Fsymbol_name (attribute),
Qnil, Qnil)) )
!NILP (Fstring_match (build_string ("^<-simplified[^*]*$"),
Fsymbol_name (attribute),
Qnil, Qnil)) )
rev_feature = Q_component_of;
else if (EQ (attribute, Q_component_of))
rev_feature = Q_component;
rev_feature = Q_component_of;
else if (EQ (attribute, Q_component_of))
rev_feature = Q_component;
+ else if (EQ (attribute, Q_same))
+ rev_feature = Q_same_of;
+ else if (EQ (attribute, Q_same_of))
+ rev_feature = Q_same;
else
{
Lisp_String* name = symbol_name (XSYMBOL (attribute));
else
{
Lisp_String* name = symbol_name (XSYMBOL (attribute));
if ( EQ (attribute, Qideographic_structure)
|| EQ (attribute, Q_identical)
|| EQ (attribute, Q_identical_from)
if ( EQ (attribute, Qideographic_structure)
|| EQ (attribute, Q_identical)
|| EQ (attribute, Q_identical_from)
+ || EQ (attribute, Q_same)
+ || EQ (attribute, Q_same_of)
|| !NILP (Fstring_match
(build_string ("^\\(<-\\|->\\)simplified[^*]*$"),
Fsymbol_name (attribute),
|| !NILP (Fstring_match
(build_string ("^\\(<-\\|->\\)simplified[^*]*$"),
Fsymbol_name (attribute),
defsymbol (&Q_identical_from, "<-identical");
defsymbol (&Q_component, "->ideographic-component-forms");
defsymbol (&Q_component_of, "<-ideographic-component-forms");
defsymbol (&Q_identical_from, "<-identical");
defsymbol (&Q_component, "->ideographic-component-forms");
defsymbol (&Q_component_of, "<-ideographic-component-forms");
+ defsymbol (&Q_same, "->same");
+ defsymbol (&Q_same_of, "<-same");
defsymbol (&Qcomposition, "composition");
defsymbol (&Q_decomposition, "->decomposition");
defsymbol (&Qcompat, "compat");
defsymbol (&Qcomposition, "composition");
defsymbol (&Q_decomposition, "->decomposition");
defsymbol (&Qcompat, "compat");