(=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 (file)
--- 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$"))
   )