1075 |
static int |
static int |
1076 |
define_charset_internal (name, dimension, code_space, min_code, max_code, |
define_charset_internal (name, dimension, code_space, min_code, max_code, |
1077 |
iso_final, iso_revision, emacs_mule_id, |
iso_final, iso_revision, emacs_mule_id, |
1078 |
ascii_compatible, supprementary, |
ascii_compatible, supplementary, |
1079 |
code_offset) |
code_offset) |
1080 |
Lisp_Object name; |
Lisp_Object name; |
1081 |
int dimension; |
int dimension; |
1082 |
unsigned char *code_space; |
unsigned char *code_space; |
1083 |
unsigned min_code, max_code; |
unsigned min_code, max_code; |
1084 |
int iso_final, iso_revision, emacs_mule_id; |
int iso_final, iso_revision, emacs_mule_id; |
1085 |
int ascii_compatible, supprementary; |
int ascii_compatible, supplementary; |
1086 |
int code_offset; |
int code_offset; |
1087 |
{ |
{ |
1088 |
Lisp_Object args[charset_arg_max]; |
Lisp_Object args[charset_arg_max]; |
1104 |
args[charset_arg_emacs_mule_id] |
args[charset_arg_emacs_mule_id] |
1105 |
= (emacs_mule_id < 0 ? Qnil : make_number (emacs_mule_id)); |
= (emacs_mule_id < 0 ? Qnil : make_number (emacs_mule_id)); |
1106 |
args[charset_arg_ascii_compatible_p] = ascii_compatible ? Qt : Qnil; |
args[charset_arg_ascii_compatible_p] = ascii_compatible ? Qt : Qnil; |
1107 |
args[charset_arg_supplementary_p] = supprementary ? Qt : Qnil; |
args[charset_arg_supplementary_p] = supplementary ? Qt : Qnil; |
1108 |
args[charset_arg_invalid_code] = Qnil; |
args[charset_arg_invalid_code] = Qnil; |
1109 |
args[charset_arg_code_offset] = make_number (code_offset); |
args[charset_arg_code_offset] = make_number (code_offset); |
1110 |
args[charset_arg_map] = Qnil; |
args[charset_arg_map] = Qnil; |