Mercurial > emacs
comparison src/charset.c @ 42162:478d5ff60075
(Fdefine_charset): Call Fupdate_coding_systems_internal.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 18 Dec 2001 19:38:18 +0000 |
| parents | 9965a3b28660 |
| children | 69a3fef3cb46 |
comparison
equal
deleted
inserted
replaced
| 42161:18516f8e5cff | 42162:478d5ff60075 |
|---|---|
| 706 update_charset_table (charset_id, vec[0], vec[1], vec[2], vec[3], | 706 update_charset_table (charset_id, vec[0], vec[1], vec[2], vec[3], |
| 707 vec[4], vec[5], vec[6], vec[7], vec[8]); | 707 vec[4], vec[5], vec[6], vec[7], vec[8]); |
| 708 Fput (charset_symbol, Qcharset, CHARSET_TABLE_ENTRY (XINT (charset_id))); | 708 Fput (charset_symbol, Qcharset, CHARSET_TABLE_ENTRY (XINT (charset_id))); |
| 709 CHARSET_SYMBOL (XINT (charset_id)) = charset_symbol; | 709 CHARSET_SYMBOL (XINT (charset_id)) = charset_symbol; |
| 710 Vcharset_list = Fcons (charset_symbol, Vcharset_list); | 710 Vcharset_list = Fcons (charset_symbol, Vcharset_list); |
| 711 Fupdate_coding_systems_internal (); | |
| 711 return Qnil; | 712 return Qnil; |
| 712 } | 713 } |
| 713 | 714 |
| 714 DEFUN ("generic-character-list", Fgeneric_character_list, | 715 DEFUN ("generic-character-list", Fgeneric_character_list, |
| 715 Sgeneric_character_list, 0, 0, 0, | 716 Sgeneric_character_list, 0, 0, 0, |