From 3a811f70ab469dcf2cdfab4729af5e0cbde633c6 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 3 Aug 2005 15:41:53 +0000 Subject: [PATCH] (Q_circled_of): New variable. (put_char_composition): Return `<-circled' instead of `=decomposition' for compatibility mapping to single character tagged `circle'. (Fput_char_attribute): Convert char-specs in value of `{<-|->}circled[^*]*' to characters and put reverse links. (Fsave_char_attribute_table): Use `Fchar_refs_simplify_char_specs' for `<-circled'. (syms_of_chartab): Add new symbol `<-circled'. --- src/chartab.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/chartab.c b/src/chartab.c index 6b33280..f0cacbe 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -1136,6 +1136,7 @@ Lisp_Object Qto_decomposition_at_circled; Lisp_Object Q_canonical; Lisp_Object Q_superscript_of; Lisp_Object Q_subscript_of; +Lisp_Object Q_circled_of; Lisp_Object Q_compat_of; Lisp_Object Q_decomposition; Lisp_Object Q_identical; @@ -3435,6 +3436,8 @@ put_char_composition (Lisp_Object character, Lisp_Object value) return Q_superscript_of; else if (EQ (base, Qsub)) return Q_subscript_of; + else if (EQ (base, Qcircle)) + return Q_circled_of; else if (EQ (base, Qcompat)) return Q_compat_of; } @@ -3547,13 +3550,15 @@ Store CHARACTER's ATTRIBUTE with VALUE. EQ (attribute, Q_canonical) || EQ (attribute, Q_superscript_of) || EQ (attribute, Q_subscript_of) || + EQ (attribute, Q_circled_of) || EQ (attribute, Q_compat_of) || EQ (attribute, Q_component) || EQ (attribute, Q_component_of) || !NILP (Fstring_match (build_string ("^\\(<-\\|->\\)\\(" "canonical" - "\\|superscript\\|subscript\\|compat" + "\\|superscript\\|subscript" + "\\|circled\\|compat" "\\|fullwidth\\|halfwidth" "\\|simplified\\|vulgar\\|wrong" "\\|same\\|original\\|ancient" @@ -3905,6 +3910,7 @@ Save values of ATTRIBUTE into database file. EQ (attribute, Q_canonical) || EQ (attribute, Q_superscript_of) || EQ (attribute, Q_subscript_of) || + EQ (attribute, Q_circled_of) || EQ (attribute, Q_compat_of) || !NILP (Fstring_match (build_string ("^\\(<-\\|->\\)\\(simplified" @@ -4694,6 +4700,7 @@ syms_of_chartab (void) defsymbol (&Q_canonical, "->canonical"); defsymbol (&Q_superscript_of, "<-superscript"); defsymbol (&Q_subscript_of, "<-subscript"); + defsymbol (&Q_circled_of, "<-circled"); defsymbol (&Q_compat_of, "<-compat"); defsymbol (&Q_decomposition, "->decomposition"); defsymbol (&Qcompat, "compat"); -- 1.7.10.4