From: tomo <tomo>
Date: Fri, 3 Sep 2004 02:26:12 +0000 (+0000)
Subject: (=daikanwa@rev1): Renamed from `=daikanwa-rev1'; specify `=daikanwa'
X-Git-Tag: r21-4-15-chise-0_21-31-daikanwa-rev^2~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=45dc1ceaf9468fe260aef3a04b8ca43d0ac26015;p=chise%2Fxemacs-chise.git.1

(=daikanwa@rev1): Renamed from `=daikanwa-rev1'; specify `=daikanwa'
as the mother; define `=daikanwa-rev1' as an alias for
`=daikanwa@rev1'.
(=daikanwa@rev2): Renamed from `=daikanwa-rev2'; specify `=daikanwa'
as the mother; define `=daikanwa-rev2' as an alias for
`=daikanwa@rev2'.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index d2887cd..e553d06 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -265,7 +265,7 @@
 		  code-offset	#xE00000))
   (define-charset-alias 'ideograph-daikanwa '=daikanwa)
 
-  (make-charset '=daikanwa-rev1
+  (make-charset '=daikanwa@rev1
 		"Daikanwa dictionary (revised version)"
 		`(long-name	"Daikanwa Rev."
 		  chars		256
@@ -273,10 +273,13 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  registry	"Daikanwa\\(\\.[0-9]+\\)?-2"))
-  (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa-rev1)
+		  registry	"Daikanwa\\(\\.[0-9]+\\)?-2"
+		  mother	=daikanwa
+                  ))
+  (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
+  (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
 
-  (make-charset '=daikanwa-rev2
+  (make-charset '=daikanwa@rev2
 		"Daikanwa dictionary (revised version 2)"
 		`(long-name	"Daikanwa"
 		  chars		256
@@ -285,9 +288,14 @@
 		  graphic	2
 		  direction	l2r
 		  registry	"Daikanwa\\(\\.[0-9]+\\)?-3"
-		  min-code	#xE00000
-		  max-code	,(+ #xE00000 50100)
-		  code-offset	#xE00000))
+		  mother	=daikanwa
+		  min-code	1
+                  max-code	49964
+                  ;; min-code	#xE00000
+                  ;; max-code	,(+ #xE00000 50100)
+                  ;; code-offset	#xE00000
+		  ))
+  (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
 
   (make-charset '=big5-pua
 		"Big5 with private used area"