comparison src/fontset.c @ 89006:faa38aebf129

(Fset_fontset_font): Treate `ascii' as charset, not script.
author Kenichi Handa <handa@m17n.org>
date Mon, 19 Aug 2002 10:56:54 +0000
parents d50b0a9ea97a
children c2201502f37e
comparison
equal deleted inserted replaced
89005:7c7b866077e9 89006:faa38aebf129
1263 { 1263 {
1264 val = Fcons (character, Qnil); 1264 val = Fcons (character, Qnil);
1265 map_char_table (accumulate_script_ranges, Qnil, Vchar_script_table, 1265 map_char_table (accumulate_script_ranges, Qnil, Vchar_script_table,
1266 val, 0, NULL); 1266 val, 0, NULL);
1267 range_list = XCDR (val); 1267 range_list = XCDR (val);
1268 }
1269 else if (CHARSETP (character))
1270 {
1271 struct charset *charset;
1272
1273 CHECK_CHARSET_GET_CHARSET (character, charset);
1274 if (CHARSET_METHOD (charset) == CHARSET_METHOD_OFFSET)
1275 range_list
1276 = Fcons (Fcons (make_number (CHARSET_MIN_CHAR (charset)),
1277 make_number (CHARSET_MAX_CHAR (charset))),
1278 range_list);
1268 if (EQ (character, Qascii)) 1279 if (EQ (character, Qascii))
1269 { 1280 {
1270 if (! STRINGP (font_spec)) 1281 if (! STRINGP (font_spec))
1271 font_spec = generate_ascii_font_name (FONTSET_NAME (fontset), 1282 font_spec = generate_ascii_font_name (FONTSET_NAME (fontset),
1272 font_spec); 1283 font_spec);
1273 FONTSET_ASCII (fontset) = font_spec; 1284 FONTSET_ASCII (fontset) = font_spec;
1274 } 1285 }
1275 }
1276 else if (CHARSETP (character))
1277 {
1278 struct charset *charset;
1279
1280 CHECK_CHARSET_GET_CHARSET (character, charset);
1281 if (CHARSET_METHOD (charset) == CHARSET_METHOD_OFFSET)
1282 range_list
1283 = Fcons (Fcons (make_number (CHARSET_MIN_CHAR (charset)),
1284 make_number (CHARSET_MAX_CHAR (charset))),
1285 range_list);
1286 } 1286 }
1287 1287
1288 if (NILP (range_list)) 1288 if (NILP (range_list))
1289 error ("Invalid script or charset name: %s", 1289 error ("Invalid script or charset name: %s",
1290 XSYMBOL (character)->name->data); 1290 XSYMBOL (character)->name->data);