From 6c90a2f30e91dfed1d8e109698d3afe41854f3cf Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 14 Feb 2011 11:14:44 +0000 Subject: [PATCH] (=hanyo-denshi/jd): New coded-charset for XEmacs CHISE. --- lisp/mule/mule-conf.el | 27 ++++++++++++++++++++------- 1 file changed, 20 insertions(+), 7 deletions(-) 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 -- 1.7.10.4