3014 |
} |
} |
3015 |
|
|
3016 |
|
|
3017 |
/* Return a newly created sub char table with default value DEFALT. |
/* Return a newly created sub char table with slots initialized by INIT. |
3018 |
Since a sub char table does not appear as a top level Emacs Lisp |
Since a sub char table does not appear as a top level Emacs Lisp |
3019 |
object, we don't need a Lisp interface to make it. */ |
object, we don't need a Lisp interface to make it. */ |
3020 |
|
|
3021 |
Lisp_Object |
Lisp_Object |
3022 |
make_sub_char_table (defalt) |
make_sub_char_table (init) |
3023 |
Lisp_Object defalt; |
Lisp_Object init; |
3024 |
{ |
{ |
3025 |
Lisp_Object vector |
Lisp_Object vector |
3026 |
= Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), Qnil); |
= Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), init); |
3027 |
XCHAR_TABLE (vector)->top = Qnil; |
XCHAR_TABLE (vector)->top = Qnil; |
3028 |
XCHAR_TABLE (vector)->defalt = defalt; |
XCHAR_TABLE (vector)->defalt = Qnil; |
3029 |
XSETCHAR_TABLE (vector, XCHAR_TABLE (vector)); |
XSETCHAR_TABLE (vector, XCHAR_TABLE (vector)); |
3030 |
return vector; |
return vector; |
3031 |
} |
} |