From: tomo <tomo>
Date: Mon, 14 Feb 2011 11:14:44 +0000 (+0000)
Subject: (=hanyo-denshi/jd): New coded-charset for XEmacs CHISE.
X-Git-Tag: r21-4-22-chise-0_25-6^20~663
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6c90a2f30e91dfed1d8e109698d3afe41854f3cf;p=chise%2Fxemacs-chise.git.1

(=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
--- 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