X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fmule%2Fmule-conf.el;h=f5295411abe1fbea38b0a369a5e7d0a9a5dc7f59;hb=e2f52b1be6946ff4c2dfc6f91b1bc273da96ab0e;hp=4367460921a88d1aaac49d69c6f4c278acbc8ce9;hpb=24158bacbc7ace32bb8f8f156cdd71e8d7d5974d;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 4367460..f529541 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -457,7 +457,7 @@
   (define-charset-alias 'ideograph-gt '=gt)
   (make-charset '=>>gt
 		"GT 2000 abstract glyphs"
-		`(long-name	"abstract GT"
+		`(long-name	"abstract GT glyphs"
 		  chars		256
 		  dimension	3
 		  columns	2
@@ -466,6 +466,15 @@
 		  mother	=gt))
   (define-charset-alias '<=>gt '=>>gt)
   (define-charset-alias '<==>gt '=>>gt)
+  (make-charset '=>gt
+		"GT 2000 abstract characters"
+		`(long-name	"abstract GT characters"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=>>gt))
   (make-charset '=gt-k
 		"Ideographic components of GT"
 		`(long-name	"GT components"
@@ -1064,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"
@@ -1072,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
@@ -1083,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
@@ -1094,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
@@ -1105,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
@@ -1116,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
@@ -1127,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
@@ -1138,6 +1173,8 @@
 	       graphic 2
 	       direction l2r
 	       mother =adobe-japan1-5
+	       min-code 0
+	       max-code 23057
 	       registry "AdobeJapan1-6$"))
   )