(Fdefine_charset): Call Fupdate_coding_systems_internal.

[gnu-emacs] / src / charset.c

diff --git a/src/charset.c b/src/charset.c
index 2d5c3b75c81a873fe4ed438e05919c8ee3dbc4cf..5ff3be8c9a4802efd134e20016d7a003ba4846bf 100644 (file)
--- a/src/charset.c
+++ b/src/charset.c
@@ -708,6 +708,7 @@ DESCRIPTION (string) is the description string of the charset.  */)
   Fput (charset_symbol, Qcharset, CHARSET_TABLE_ENTRY (XINT (charset_id)));
   CHARSET_SYMBOL (XINT (charset_id)) = charset_symbol;
   Vcharset_list = Fcons (charset_symbol, Vcharset_list);
+  Fupdate_coding_systems_internal ();
   return Qnil;
 }