From: tomo Date: Tue, 2 Aug 2005 16:07:57 +0000 (+0000) Subject: (Q_subscript_of): New variable. X-Git-Tag: r21-4-17-chise-0_22-4^20~338 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c9f7219a2557839dbfda6e2eaf117def333cadae;p=chise%2Fxemacs-chise.git (Q_subscript_of): New variable. (put_char_composition): Return `<-subscript' instead of `=decomposition' for compatibility mapping to single character tagged `sub'. (Fput_char_attribute): Convert char-specs in value of `{<-|->}subscript[^*]*' to characters and put reverse links. (Fsave_char_attribute_table): Use `Fchar_refs_simplify_char_specs' for `<-subscript'. (syms_of_chartab): Add new symbol `<-subscript'. --- diff --git a/src/chartab.c b/src/chartab.c index 63c9fe8..71909ed 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -1134,6 +1134,7 @@ Lisp_Object Qmap_decomposition; Lisp_Object Qto_decomposition_at_superscript; Lisp_Object Q_canonical; Lisp_Object Q_superscript_of; +Lisp_Object Q_subscript_of; Lisp_Object Q_compat_of; Lisp_Object Q_decomposition; Lisp_Object Q_identical; @@ -3431,6 +3432,8 @@ put_char_composition (Lisp_Object character, Lisp_Object value) } else if (EQ (base, Qsuper)) return Q_superscript_of; + else if (EQ (base, Qsub)) + return Q_subscript_of; else if (EQ (base, Qcompat)) return Q_compat_of; } @@ -3540,13 +3543,14 @@ Store CHARACTER's ATTRIBUTE with VALUE. EQ (attribute, Q_identical_from) || EQ (attribute, Q_canonical) || EQ (attribute, Q_superscript_of) || + EQ (attribute, Q_subscript_of) || EQ (attribute, Q_compat_of) || EQ (attribute, Q_component) || EQ (attribute, Q_component_of) || !NILP (Fstring_match (build_string ("^\\(<-\\|->\\)\\(" "canonical" - "\\|superscript\\|compat" + "\\|superscript\\|subscript\\|compat" "\\|fullwidth\\|halfwidth" "\\|simplified\\|vulgar\\|wrong" "\\|same\\|original\\|ancient" @@ -3897,6 +3901,7 @@ Save values of ATTRIBUTE into database file. EQ (attribute, Q_identical_from) || EQ (attribute, Q_canonical) || EQ (attribute, Q_superscript_of) || + EQ (attribute, Q_subscript_of) || EQ (attribute, Q_compat_of) || !NILP (Fstring_match (build_string ("^\\(<-\\|->\\)\\(simplified" @@ -4684,6 +4689,7 @@ syms_of_chartab (void) "=>decomposition@superscript"); defsymbol (&Q_canonical, "->canonical"); defsymbol (&Q_superscript_of, "<-superscript"); + defsymbol (&Q_subscript_of, "<-subscript"); defsymbol (&Q_compat_of, "<-compat"); defsymbol (&Q_decomposition, "->decomposition"); defsymbol (&Qcompat, "compat");