From: tomo <tomo>
Date: Wed, 26 Feb 2003 18:32:26 +0000 (+0000)
Subject: (ideograph-gt-pj-{1..11}): New coded-charsets when `utf-2000' is
X-Git-Tag: r21-4-10-utf-2000-0_20-gtpjl~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8886e3ff5690568bfe37cd7aa9a72813898aa0c3;p=chise%2Fxemacs-chise.git

(ideograph-gt-pj-{1..11}): New coded-charsets when `utf-2000' is
provided [was builtin coded-charsets].
---

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"