# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1008704298 0
# Node ID 478d5ff60075838b0b13b0ff9b67a5e256fc3294
# Parent  18516f8e5cffb51de5be73c5b9c8579220b9cb6b
(Fdefine_charset): Call Fupdate_coding_systems_internal.

diff -r 18516f8e5cff -r 478d5ff60075 src/charset.c
--- a/src/charset.c	Tue Dec 18 19:37:37 2001 +0000
+++ b/src/charset.c	Tue Dec 18 19:38:18 2001 +0000
@@ -708,6 +708,7 @@
   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;
 }