{
if (EQ (range, Qt))
outrange->type = CHARTAB_RANGE_ALL;
+#ifdef UTF2000
else if (EQ (range, Qnil))
outrange->type = CHARTAB_RANGE_DEFAULT;
+#endif
else if (CHAR_OR_CHAR_INTP (range))
{
outrange->type = CHARTAB_RANGE_CHAR;
{
CHECK_CHAR (character);
value = put_char_ccs_code_point (character, ccs, value);
+ attribute = XCHARSET_NAME (ccs);
}
else if (EQ (attribute, Q_decomposition))
{
(attributes))
{
Lisp_Object rest = attributes;
- Lisp_Object code = Fcdr (Fassq (Qucs, attributes));
+ Lisp_Object code = Fcdr (Fassq (Qmap_ucs, attributes));
Lisp_Object character;
if (NILP (code))
+ code = Fcdr (Fassq (Qucs, attributes));
+ if (NILP (code))
{
while (CONSP (rest))
{