From: tomo <tomo>
Date: Thu, 22 Apr 2010 05:40:53 +0000 (+0000)
Subject: (=adobe-japan1-base): New coded-charset for XEmacs CHISE.
X-Git-Tag: r21-4-22-chise-0_24-aj1-bc^20~56
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9a63bfefd3399e02f4112e327d7ed1f577b0b6c3;p=chise%2Fxemacs-chise.git-

(=adobe-japan1-base): New coded-charset for XEmacs CHISE.
(=adobe-japan1-0): Specify `=adobe-japan1-base' as the mother; specify
`min-code' and `max-code'.
(=adobe-japan1-1): Specify `min-code' and `max-code'.
(=adobe-japan1-2): Likewise.
(=adobe-japan1-3): Likewise.
(=adobe-japan1-4): Likewise.
(=adobe-japan1-5): Likewise.
(=adobe-japan1-6): Likewise.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 2e1e7de..f529541 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -1073,6 +1073,19 @@
 	       code-offset #x20000))
 
   (make-charset
+   '=adobe-japan1-base
+   "Adobe-Japan1 Character Collection for CID-Keyed Fonts"
+   `(long-name "Adobe-Japan1"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "AdobeJapan1-[0-6]$"
+	       min-code	,(lsh #x6300 16)
+	       max-code	,(+ (lsh #x6300 16) 23057)
+	       code-offset	,(lsh #x6300 16)))
+  (make-charset
    '=adobe-japan1-0
    "Adobe-Japan1-0 Character Collection for CID-Keyed Fonts"
    '(long-name "Adobe-Japan1-0"
@@ -1081,6 +1094,9 @@
 	       columns 2
 	       graphic 2
 	       direction l2r
+	       mother =adobe-japan1-base
+	       min-code 0
+	       max-code 8283
 	       registry "AdobeJapan1-0$"))
   (make-charset
    '=adobe-japan1-1
@@ -1092,6 +1108,8 @@
 	       graphic 2
 	       direction l2r
 	       mother =adobe-japan1-0
+	       min-code 0
+	       max-code 8358
 	       registry "AdobeJapan1-1$"))
   (make-charset
    '=adobe-japan1-2
@@ -1103,6 +1121,8 @@
 	       graphic 2
 	       direction l2r
 	       mother =adobe-japan1-1
+	       min-code 0
+	       max-code 8719
 	       registry "AdobeJapan1-2$"))
   (make-charset
    '=adobe-japan1-3
@@ -1114,6 +1134,8 @@
 	       graphic 2
 	       direction l2r
 	       mother =adobe-japan1-2
+	       min-code 0
+	       max-code 9353
 	       registry "AdobeJapan1-3$"))
   (make-charset
    '=adobe-japan1-4
@@ -1125,6 +1147,8 @@
 	       graphic 2
 	       direction l2r
 	       mother =adobe-japan1-3
+	       min-code 0
+	       max-code 15443
 	       registry "AdobeJapan1-4$"))
   (make-charset
    '=adobe-japan1-5
@@ -1136,6 +1160,8 @@
 	       graphic 2
 	       direction l2r
 	       mother =adobe-japan1-4
+	       min-code 0
+	       max-code 20316
 	       registry "AdobeJapan1-5$"))
   (make-charset
    '=adobe-japan1-6
@@ -1147,6 +1173,8 @@
 	       graphic 2
 	       direction l2r
 	       mother =adobe-japan1-5
+	       min-code 0
+	       max-code 23057
 	       registry "AdobeJapan1-6$"))
   )