From 8886e3ff5690568bfe37cd7aa9a72813898aa0c3 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 26 Feb 2003 18:32:26 +0000
Subject: [PATCH] (ideograph-gt-pj-{1..11}): New coded-charsets when
 `utf-2000' is provided [was builtin coded-charsets].

---
 lisp/mule/mule-conf.el |   13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 93130b8..fc1472c 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -255,6 +255,19 @@
 		  max-code	,(+ (lsh #x6110 16) 17090)
 		  code-offset	,(lsh #x6110 16)))
   (define-charset-alias 'ideograph-gt-k '=gt-k)
+  (let ((i 1))
+    (while (<= i 11)
+      (make-charset
+       (intern (format "ideograph-gt-pj-%d" i))
+       (format "GT PJ %d" i)
+       `(long-name ,(format "GT 2000 (pseudo JIS encoding) part %d" i)
+		   chars 94
+		   dimension 2
+		   columns 2
+		   graphic 0
+		   direction l2r
+		   registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
+      (setq i (1+ i))))
   (make-charset
    'ideograph-gt-pj-k1
    "GT K1"
-- 
1.7.10.4