1319 |
Lisp_Object dimension, chars, final_char, charset; |
Lisp_Object dimension, chars, final_char, charset; |
1320 |
{ |
{ |
1321 |
int id; |
int id; |
1322 |
|
int chars_flag; |
1323 |
|
|
1324 |
CHECK_CHARSET_GET_ID (charset, id); |
CHECK_CHARSET_GET_ID (charset, id); |
1325 |
check_iso_charset_parameter (dimension, chars, final_char); |
check_iso_charset_parameter (dimension, chars, final_char); |
1326 |
|
chars_flag = XINT (chars) == 96; |
1327 |
ISO_CHARSET_TABLE (XINT (dimension), XINT (chars), XINT (final_char)) = id; |
ISO_CHARSET_TABLE (XINT (dimension), chars_flag, XINT (final_char)) = id; |
1328 |
return Qnil; |
return Qnil; |
1329 |
} |
} |
1330 |
|
|
1918 |
Lisp_Object dimension, chars, final_char; |
Lisp_Object dimension, chars, final_char; |
1919 |
{ |
{ |
1920 |
int id; |
int id; |
1921 |
|
int chars_flag; |
1922 |
|
|
1923 |
check_iso_charset_parameter (dimension, chars, final_char); |
check_iso_charset_parameter (dimension, chars, final_char); |
1924 |
id = ISO_CHARSET_TABLE (XFASTINT (dimension), XFASTINT (chars), |
chars_flag = XFASTINT (chars) == 96; |
1925 |
|
id = ISO_CHARSET_TABLE (XFASTINT (dimension), chars_flag, |
1926 |
XFASTINT (final_char)); |
XFASTINT (final_char)); |
1927 |
return (id >= 0 ? CHARSET_NAME (CHARSET_FROM_ID (id)) : Qnil); |
return (id >= 0 ? CHARSET_NAME (CHARSET_FROM_ID (id)) : Qnil); |
1928 |
} |
} |