(=hanyo-denshi/jd): New coded-charset for XEmacs CHISE.

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 4f8d65c..d29e257 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -1530,7 +1530,7 @@
               direction l2r
               registry "HanyoDenshi\\.JA-0$"
               min-code ,(lsh #x6400 16)
-              max-code ,(+ (lsh #x6400 16) 8835)
+              max-code ,(+ (lsh #x6400 16) (1- (* 94 94)))
               code-offset ,(lsh #x6400 16)))
   (make-charset
    '=hanyo-denshi/jb
@@ -1542,9 +1542,9 @@
               graphic 2
               direction l2r
               registry "HanyoDenshi\\.JB-0$"
-              min-code    ,(+ (lsh #x6400 16) 8836)
-              max-code    ,(+ (lsh #x6400 16) 8836 8835)
-              code-offset ,(+ (lsh #x6400 16) 8836)))
+              min-code    ,(+ (lsh #x6400 16) (* 94 94))
+              max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 2)))
+              code-offset ,(+ (lsh #x6400 16) (* 94 94))))
   (make-charset
    '=hanyo-denshi/jc
    "JC (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
@@ -1555,9 +1555,22 @@
               graphic 2
               direction l2r
               registry "HanyoDenshi\\.JC-0$"
-              min-code    ,(+ (lsh #x6400 16) (* 8836 2))
-              max-code    ,(+ (lsh #x6400 16) (1- (* 8836 3)))
-              code-offset ,(+ (lsh #x6400 16) (* 8836 2))))
+              min-code    ,(+ (lsh #x6400 16) (* 94 94 2))
+              max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 3)))
+              code-offset ,(+ (lsh #x6400 16) (* 94 94 2))))
+  (make-charset
+   '=hanyo-denshi/jd
+   "JD (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters"
+   `(long-name "Han'you-Denshi/JD"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JD-0$"
+              min-code    ,(+ (lsh #x6400 16) (* 94 94 3))
+              max-code    ,(+ (lsh #x6400 16) (1- (* 94 94 4)))
+              code-offset ,(+ (lsh #x6400 16) (* 94 94 3))))
   )
 
 ;;; mule-conf.el ends here