From: tomo <tomo>
Date: Thu, 27 Feb 2003 18:03:33 +0000 (+0000)
Subject: (ideograph-daikanwa): New coded-charsets when `utf-2000' is provided
X-Git-Tag: r21-4-10-utf-2000-0_20-dkw3hzkl~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a2feaa7ee06f6c9b89e367d9771dccd59a230aa5;p=chise%2Fxemacs-chise.git

(ideograph-daikanwa): New coded-charsets when `utf-2000' is provided
[was builtin coded-charsets].
(ideograph-hanziku-{1..12}): Likewise.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index f843d38..a2929ec 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -167,6 +167,19 @@
 		  direction	l2r
 		  mother	ucs))
 
+  (make-charset 'ideograph-daikanwa
+		"Daikanwa"
+		`(long-name	"Morohashi's Daikanwa Rev.2"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  registry	"Daikanwa\\(\\.[0-9]+\\)?-3"
+		  min-code	#xE00000
+		  max-code	,(+ #xE00000 50100)
+		  code-offset	#xE00000))
+
   (make-charset '=big5-pua
 		"Big5-PUA"
 		`(long-name	"Big5 with private used area"
@@ -228,6 +241,26 @@
 		  min-code	#x8140
 		  max-code	#x8DFE))
   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
+  (let* ((i 1)
+	 (hzk-min (+ (lsh #x6200 16) 65536))
+	 (hzk-max (+ hzk-min 65535)))
+    (while (<= i 12)
+      (make-charset
+       (intern (format "ideograph-hanziku-%d" i))
+       (format "HANZIKU-%d" i)
+       `(long-name ,(format "HANZIKU (pseudo BIG5 encoding) part %d" i)
+		   chars 256
+		   dimension 2
+		   columns 2
+		   graphic 2
+		   direction l2r
+		   registry ,(format "hanziku-%d$" i i)
+		   min-code ,hzk-min
+		   max-code ,hzk-max
+		   code-offset ,hzk-min))
+      (setq hzk-min (1+ hzk-max)
+	    hzk-max (+ hzk-min 65535))
+      (setq i (1+ i))))
 
   (make-charset '=gt
 		"GT"