From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 18 Dec 2001 19:38:18 +0000 (+0000)
Subject: (Fdefine_charset): Call Fupdate_coding_systems_internal.
X-Git-Tag: ttn-vms-21-2-B4~17613
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=538482abd949a7ffdec17544c5f67612a3f4d1ba;p=emacs.git

(Fdefine_charset): Call Fupdate_coding_systems_internal.
---

diff --git a/src/charset.c b/src/charset.c
index 2d5c3b75c81..5ff3be8c9a4 100644
--- 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;
 }