Lisp_Object Qto_decomposition_at_superscript;
Lisp_Object Qto_decomposition_at_circled;
Lisp_Object Q_canonical;
+Lisp_Object Q_halfwidth_of;
Lisp_Object Q_superscript_of;
Lisp_Object Q_subscript_of;
Lisp_Object Q_circled_of;
else
Fsetcdr (ret, character);
}
+ else if (EQ (base, Qnarrow))
+ return Q_halfwidth_of;
else if (EQ (base, Qsuper))
return Q_superscript_of;
else if (EQ (base, Qsub))
else if ( EQ (attribute, Qmap_decomposition) ||
EQ (attribute, Q_decomposition) )
{
+ value = Fcopy_sequence (Fchar_refs_simplify_char_specs (value));
attribute = put_char_composition (character, value);
if ( !EQ (attribute, Qmap_decomposition) &&
SYMBOLP (XCAR (value)) )
EQ (attribute, Q_identical) ||
EQ (attribute, Q_identical_from) ||
EQ (attribute, Q_canonical) ||
+ EQ (attribute, Q_halfwidth_of) ||
EQ (attribute, Q_superscript_of) ||
EQ (attribute, Q_subscript_of) ||
EQ (attribute, Q_circled_of) ||
EQ (attribute, Q_component) ||
EQ (attribute, Q_component_of) ||
- !NILP (Fstring_match
- (build_string ("^\\(<-\\|->\\)\\("
- "canonical"
- "\\|superscript\\|subscript"
- "\\|circled\\|font\\|compat"
- "\\|fullwidth\\|halfwidth"
- "\\|simplified\\|vulgar\\|wrong"
- "\\|same\\|original\\|ancient"
- "\\|Oracle-Bones\\)[^*]*$"),
- Fsymbol_name (attribute),
- Qnil, Qnil)) )
+ ( !EQ (attribute, Q_ucs_unified)
+ && !NILP (Fstring_match
+ (build_string ("^\\(<-\\|->\\)[^*]*$"),
+ Fsymbol_name (attribute),
+ Qnil, Qnil))
+ )
+ )
{
Lisp_Object rest = value;
Lisp_Object ret;
EQ (attribute, Q_identical) ||
EQ (attribute, Q_identical_from) ||
EQ (attribute, Q_canonical) ||
+ EQ (attribute, Q_halfwidth_of) ||
EQ (attribute, Q_superscript_of) ||
EQ (attribute, Q_subscript_of) ||
EQ (attribute, Q_circled_of) ||
"=>decomposition@superscript");
defsymbol (&Qto_decomposition_at_circled, "=>decomposition@circled");
defsymbol (&Q_canonical, "->canonical");
+ defsymbol (&Q_halfwidth_of, "<-halfwidth");
defsymbol (&Q_superscript_of, "<-superscript");
defsymbol (&Q_subscript_of, "<-subscript");
defsymbol (&Q_circled_of, "<-circled");