231 |
for (tail = FONTSET_CHARSET_ALIST (fontset); |
for (tail = FONTSET_CHARSET_ALIST (fontset); |
232 |
CONSP (tail); tail = XCDR (tail)) |
CONSP (tail); tail = XCDR (tail)) |
233 |
{ |
{ |
234 |
charset = CHARSET_FROM_ID (XCAR (XCAR (tail))); |
charset = CHARSET_FROM_ID (XINT (XCAR (XCAR (tail)))); |
235 |
if (ENCODE_CHAR (charset, c) != CHARSET_INVALID_CODE (charset)) |
if (ENCODE_CHAR (charset, c) != CHARSET_INVALID_CODE (charset)) |
236 |
{ |
{ |
237 |
elt = XCDR (XCAR (tail)); |
elt = XCDR (XCAR (tail)); |
260 |
{ |
{ |
261 |
Lisp_Object id, slot, tail; |
Lisp_Object id, slot, tail; |
262 |
|
|
263 |
id = make_number (CHARSET_SYMBOL_ID (idx)); |
id = CHARSET_SYMBOL_ID (idx); |
264 |
if (id == charset_ascii) |
if (XFASTINT (id) == charset_ascii) |
265 |
Fset_char_table_range (fontset, |
Fset_char_table_range (fontset, |
266 |
Fcons (make_number (0), make_number (127)), |
Fcons (make_number (0), make_number (127)), |
267 |
elt); |
elt); |
559 |
if (STRINGP (XCAR (elt)) && CHARSETP (XCDR (elt)) |
if (STRINGP (XCAR (elt)) && CHARSETP (XCDR (elt)) |
560 |
&& fast_c_string_match_ignore_case (XCAR (elt), fontname) >= 0) |
&& fast_c_string_match_ignore_case (XCAR (elt), fontname) >= 0) |
561 |
{ |
{ |
562 |
fontp->charset = CHARSET_SYMBOL_ID (XCDR (elt)); |
fontp->charset = XFASTINT (CHARSET_SYMBOL_ID (XCDR (elt))); |
563 |
break; |
break; |
564 |
} |
} |
565 |
} |
} |
1173 |
{ |
{ |
1174 |
elt = XCAR (tail); |
elt = XCAR (tail); |
1175 |
elt = Fcons ((INTEGERP (XCAR (elt)) |
elt = Fcons ((INTEGERP (XCAR (elt)) |
1176 |
? CHARSET_NAME (CHARSET_FROM_ID (XCAR (elt))) |
? CHARSET_NAME (CHARSET_FROM_ID (XFASTINT (XCAR (elt)))) |
1177 |
: XCAR (elt)), |
: XCAR (elt)), |
1178 |
Fcons (XCDR (elt), Qnil)); |
Fcons (XCDR (elt), Qnil)); |
1179 |
XSETCDR (XCAR (val), Fcons (elt, Qnil)); |
XSETCDR (XCAR (val), Fcons (elt, Qnil)); |