# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1022756678 0
# Node ID 39ba56532289384d23bec6942fde5e286f214b1e
# Parent  e2170fdb6abcc7238107b52bd0869d23a27c582e
(charset_jisx0201_roman, charset_jisx0208_1978,
charset_jisx0208): New variables.
(Fdefine_charset_internal): Setup them if appropriate.
(init_charset_once): Initialize them to -1.

diff -r e2170fdb6abc -r 39ba56532289 src/charset.c
--- a/src/charset.c	Thu May 30 11:03:06 2002 +0000
+++ b/src/charset.c	Thu May 30 11:04:38 2002 +0000
@@ -93,6 +93,11 @@
 int charset_iso_8859_1;
 int charset_unicode;
 
+/* The other special charsets.  */
+int charset_jisx0201_roman;
+int charset_jisx0208_1978;
+int charset_jisx0208;
+
 /* Value of charset attribute `charset-iso-plane'.  */
 Lisp_Object Qgl, Qgr;
 
@@ -965,6 +970,12 @@
       if (new_definition_p)
 	Viso_2022_charset_list = nconc2 (Viso_2022_charset_list,
 					 Fcons (make_number (id), Qnil));
+      if (ISO_CHARSET_TABLE (1, 0, 'J') == id)
+	charset_jisx0201_roman = id;
+      else if (ISO_CHARSET_TABLE (2, 0, '@') == id)
+	charset_jisx0208_1978 = id;
+      else if (ISO_CHARSET_TABLE (2, 0, 'B') == id)
+	charset_jisx0208 = id;
     }
 	
   if (charset.emacs_mule_id >= 0)
@@ -1817,6 +1828,10 @@
   for (i = 0; i < 255; i++)
     emacs_mule_charset[i] = NULL;
 
+  charset_jisx0201_roman = -1;
+  charset_jisx0208_1978 = -1;
+  charset_jisx0208 = -1;
+
 #if 0
   Vchar_charset_set = Fmake_char_table (Qnil, Qnil);
   CHAR_TABLE_SET (Vchar_charset_set, make_number (97), Qnil);