(Vcharset_ideograph_gt_pj_{1..11}): Deleted.

(Qideograph_gt_pj_{1..11}): Deleted.
(syms_of_mule_charset): Delete `ideograph-gt-pj-{1..11}'.
(complex_vars_of_mule_charset): Likewise.

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 72d2f82..4ed14a6 100644 (file)
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -90,17 +90,6 @@ Lisp_Object Vcharset_ideograph_hanziku_9;
 Lisp_Object Vcharset_ideograph_hanziku_10;
 Lisp_Object Vcharset_ideograph_hanziku_11;
 Lisp_Object Vcharset_ideograph_hanziku_12;
-Lisp_Object Vcharset_ideograph_gt_pj_1;
-Lisp_Object Vcharset_ideograph_gt_pj_2;
-Lisp_Object Vcharset_ideograph_gt_pj_3;
-Lisp_Object Vcharset_ideograph_gt_pj_4;
-Lisp_Object Vcharset_ideograph_gt_pj_5;
-Lisp_Object Vcharset_ideograph_gt_pj_6;
-Lisp_Object Vcharset_ideograph_gt_pj_7;
-Lisp_Object Vcharset_ideograph_gt_pj_8;
-Lisp_Object Vcharset_ideograph_gt_pj_9;
-Lisp_Object Vcharset_ideograph_gt_pj_10;
-Lisp_Object Vcharset_ideograph_gt_pj_11;
 Lisp_Object Vcharset_ideograph_daikanwa_2;
 Lisp_Object Vcharset_ideograph_daikanwa;
 Lisp_Object Vcharset_ethiopic_ucs;
@@ -363,17 +352,6 @@ Lisp_Object Qascii,
   Qideograph_hanziku_12,
   Qideograph_daikanwa_2,
   Qideograph_daikanwa,
-  Qideograph_gt_pj_1,
-  Qideograph_gt_pj_2,
-  Qideograph_gt_pj_3,
-  Qideograph_gt_pj_4,
-  Qideograph_gt_pj_5,
-  Qideograph_gt_pj_6,
-  Qideograph_gt_pj_7,
-  Qideograph_gt_pj_8,
-  Qideograph_gt_pj_9,
-  Qideograph_gt_pj_10,
-  Qideograph_gt_pj_11,
   Qethiopic_ucs,
 #endif
   Qchinese_big5_1,
@@ -2732,17 +2710,6 @@ syms_of_mule_charset (void)
   defsymbol (&Qvietnamese_viscii_lower,        "vietnamese-viscii-lower");
   defsymbol (&Qvietnamese_viscii_upper,        "vietnamese-viscii-upper");
   defsymbol (&Qjis_x0208,              "=jis-x0208");
-  defsymbol (&Qideograph_gt_pj_1,      "ideograph-gt-pj-1");
-  defsymbol (&Qideograph_gt_pj_2,      "ideograph-gt-pj-2");
-  defsymbol (&Qideograph_gt_pj_3,      "ideograph-gt-pj-3");
-  defsymbol (&Qideograph_gt_pj_4,      "ideograph-gt-pj-4");
-  defsymbol (&Qideograph_gt_pj_5,      "ideograph-gt-pj-5");
-  defsymbol (&Qideograph_gt_pj_6,      "ideograph-gt-pj-6");
-  defsymbol (&Qideograph_gt_pj_7,      "ideograph-gt-pj-7");
-  defsymbol (&Qideograph_gt_pj_8,      "ideograph-gt-pj-8");
-  defsymbol (&Qideograph_gt_pj_9,      "ideograph-gt-pj-9");
-  defsymbol (&Qideograph_gt_pj_10,     "ideograph-gt-pj-10");
-  defsymbol (&Qideograph_gt_pj_11,     "ideograph-gt-pj-11");
   defsymbol (&Qideograph_daikanwa_2,   "ideograph-daikanwa-2");
   defsymbol (&Qideograph_daikanwa,     "ideograph-daikanwa");
   defsymbol (&Qchinese_big5,           "chinese-big5");
@@ -3249,28 +3216,6 @@ complex_vars_of_mule_charset (void)
   DEF_HANZIKU (10);
   DEF_HANZIKU (11);
   DEF_HANZIKU (12);
-#define DEF_GT_PJ(n)                                                   \
-  staticpro (&Vcharset_ideograph_gt_pj_##n);                           \
-  Vcharset_ideograph_gt_pj_##n =                                       \
-    make_charset (LEADING_BYTE_GT_PJ_##n, Qideograph_gt_pj_##n, 94, 2, \
-                 2, 0, 0, CHARSET_LEFT_TO_RIGHT,                       \
-                 build_string ("GT-PJ-"#n),                            \
-                 build_string ("GT (pseudo JIS encoding) part "#n),    \
-                 build_string ("GT 2000 (pseudo JIS encoding) part "#n), \
-                 build_string                                          \
-                 ("\\(GTpj-"#n "\\|jisx0208\\.GT-"#n "\\)$"),  \
-                 Qnil, 0, 0, 0, 33, Qnil, CONVERSION_IDENTICAL);
-  DEF_GT_PJ (1);
-  DEF_GT_PJ (2);
-  DEF_GT_PJ (3);
-  DEF_GT_PJ (4);
-  DEF_GT_PJ (5);
-  DEF_GT_PJ (6);
-  DEF_GT_PJ (7);
-  DEF_GT_PJ (8);
-  DEF_GT_PJ (9);
-  DEF_GT_PJ (10);
-  DEF_GT_PJ (11);
 
   staticpro (&Vcharset_ideograph_daikanwa_2);
   Vcharset_ideograph_daikanwa_2 =