From 3dac7e887a60d4f689384152d0234c9f063a856a Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 8 Mar 2004 15:01:08 +0000 Subject: [PATCH] (Q_component): New variable. (Q_component_of): Likewise. (Fput_char_attribute): Convert char-refs in value of `{->|<-}ideographic-component-forms' to characters and put reverse links. (syms_of_chartab): Add new symbols `{->|<-}ideographic-component-forms'. --- src/chartab.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/chartab.c b/src/chartab.c index 2ec5694..82b3f21 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -1142,6 +1142,8 @@ Lisp_Object Q_denotational; Lisp_Object Q_denotational_from; Lisp_Object Q_subsumptive; Lisp_Object Q_subsumptive_from; +Lisp_Object Q_component; +Lisp_Object Q_component_of; Lisp_Object Qto_ucs; Lisp_Object Q_ucs_unified; Lisp_Object Qcompat; @@ -3491,6 +3493,8 @@ Store CHARACTER's ATTRIBUTE with VALUE. EQ (attribute, Q_denotational_from) || EQ (attribute, Q_identical) || EQ (attribute, Q_identical_from) || + EQ (attribute, Q_component) || + EQ (attribute, Q_component_of) || !NILP (Fstring_match (build_string ("^<-simplified[^*]*$"), Fsymbol_name (attribute), Qnil, Qnil)) ) @@ -3513,6 +3517,10 @@ Store CHARACTER's ATTRIBUTE with VALUE. rev_feature = Q_denotational_from; else if (EQ (attribute, Q_denotational_from)) rev_feature = Q_denotational; + else if (EQ (attribute, Q_component)) + rev_feature = Q_component_of; + else if (EQ (attribute, Q_component_of)) + rev_feature = Q_component; else { Lisp_String* name = symbol_name (XSYMBOL (attribute)); @@ -4576,6 +4584,8 @@ syms_of_chartab (void) defsymbol (&Q_denotational_from, "<-denotational"); defsymbol (&Q_identical, "->identical"); defsymbol (&Q_identical_from, "<-identical"); + defsymbol (&Q_component, "->ideographic-component-forms"); + defsymbol (&Q_component_of, "<-ideographic-component-forms"); defsymbol (&Qcomposition, "composition"); defsymbol (&Q_decomposition, "->decomposition"); defsymbol (&Qcompat, "compat"); -- 1.7.10.4