From: tomo <tomo>
Date: Tue, 18 Mar 2003 16:28:03 +0000 (+0000)
Subject: (=daikanwa-rev1): Renamed from `ideograph-daikanwa-2'.
X-Git-Tag: r21-4-11-chise-0_21-=daikanwa-rev1+2^2~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=359b5eb1e2f798b8c1b869211ab972666b13e7be;p=chise%2Fxemacs-chise.git.1

(=daikanwa-rev1): Renamed from `ideograph-daikanwa-2'.
(ideograph-daikanwa-2): Changed to an alias for `=daikanwa-rev1'.
(=daikanwa-rev2): New coded-charset when `utf-2000' is provided.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 5403694..0d7960c 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -205,7 +205,20 @@
 		  direction	l2r
 		  mother	=ucs))
 
-  (make-charset 'ideograph-daikanwa-2
+  (make-charset 'ideograph-daikanwa
+		"Daikanwa"
+		`(long-name	"Daikanwa dictionary (revised version 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 '=daikanwa-rev1
 		"Daikanwa Rev."
 		`(long-name	"Daikanwa dictionary (revised version)"
 		  chars		256
@@ -214,8 +227,9 @@
 		  graphic	2
 		  direction	l2r
 		  registry	"Daikanwa\\(\\.[0-9]+\\)?-2"))
+  (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa-rev1)
 
-  (make-charset 'ideograph-daikanwa
+  (make-charset '=daikanwa-rev2
 		"Daikanwa"
 		`(long-name	"Daikanwa dictionary (revised version 2)"
 		  chars		256