Mercurial > emacs
comparison src/fns.c @ 38483:eac29e9f6d99
* fns.c (Fset_char_table_default): Check that a charset is defined before checking its dimension.
author | Ken Raeburn <raeburn@raeburn.org> |
---|---|
date | Wed, 18 Jul 2001 20:42:40 +0000 |
parents | b481b8cc3923 |
children | 0418462ff378 |
comparison
equal
deleted
inserted
replaced
38482:c8c4805bde95 | 38483:eac29e9f6d99 |
---|---|
2351 if (charset == CHARSET_ASCII) | 2351 if (charset == CHARSET_ASCII) |
2352 return (XCHAR_TABLE (char_table)->defalt = value); | 2352 return (XCHAR_TABLE (char_table)->defalt = value); |
2353 | 2353 |
2354 /* Even if C is not a generic char, we had better behave as if a | 2354 /* Even if C is not a generic char, we had better behave as if a |
2355 generic char is specified. */ | 2355 generic char is specified. */ |
2356 if (CHARSET_DIMENSION (charset) == 1) | 2356 if (!CHARSET_DEFINED_P (charset) || CHARSET_DIMENSION (charset) == 1) |
2357 code1 = 0; | 2357 code1 = 0; |
2358 temp = XCHAR_TABLE (char_table)->contents[charset + 128]; | 2358 temp = XCHAR_TABLE (char_table)->contents[charset + 128]; |
2359 if (!code1) | 2359 if (!code1) |
2360 { | 2360 { |
2361 if (SUB_CHAR_TABLE_P (temp)) | 2361 if (SUB_CHAR_TABLE_P (temp)) |