195 |
copy_category_entry (table, range, val) |
copy_category_entry (table, range, val) |
196 |
Lisp_Object table, range, val; |
Lisp_Object table, range, val; |
197 |
{ |
{ |
198 |
char_table_set_range (table, XINT (XCAR (range)), XINT (XCDR (range)), |
val = Fcopy_sequence (val); |
199 |
Fcopy_sequence (val)); |
if (CONSP (range)) |
200 |
|
char_table_set_range (table, XINT (XCAR (range)), XINT (XCDR (range)), |
201 |
|
val); |
202 |
|
else |
203 |
|
char_table_set (table, XINT (range), val); |
204 |
} |
} |
205 |
|
|
206 |
/* Return a copy of category table TABLE. We can't simply use the |
/* Return a copy of category table TABLE. We can't simply use the |