From: tomo <tomo>
Date: Wed, 4 Aug 2010 11:31:35 +0000 (+0000)
Subject: (=daikanwa): Fix DOC.
X-Git-Tag: chise-base-0_25-1^20~356
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d2343a46284746c5dffd24a6b393751b5ccdbedc;p=chise%2Fxemacs-chise.git

(=daikanwa): Fix DOC.
(=>daikanwa): New abstract character for XEmacs CHISE.
(=>ucs@iso): Likewise.
(=>ucs@unicode): Likewise.
(=>>ucs@iso): Use `=>ucs@iso' as the mother.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index fc6c5c8..22c5913 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -592,7 +592,7 @@
   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
 
   (make-charset '=daikanwa
-		"Daikanwa dictionary (revised version 2)"
+		"Daikanwa dictionary (unchanged part)"
 		`(long-name	"Daikanwa"
 		  chars		256
 		  dimension	2
@@ -637,6 +637,17 @@
 		  ))
   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
 
+  (make-charset '=>daikanwa
+		"Daikanwa abstract characters"
+		'(long-name	"abstract Daikanwa"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  registry	"Daikanwa\\(\\.[0-9]+\\)?-3"
+		  mother	=daikanwa))
+
   (make-charset '=shinjigen
 		"Kadokawa ShinJigen dictionary (common parts)"
 		`(long-name	"Shinjigen common parts"
@@ -828,6 +839,27 @@
 		  max-code	#xE908FF ; #xE8FF
 		  code-offset	,(- #xE90000 #xE000)))
 
+  (make-charset '=>ucs@iso
+		"Abstract characters of ISO/IEC 10646 representatives"
+		'(long-name	"UCS characters for ISO"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=ucs))
+  (make-charset '=>ucs@unicode
+		"Abstract characters of Unicode representatives"
+		'(long-name	"UCS characters for Unicode"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>ucs@iso))
+
   (make-charset '=>>ucs@iso
 		"Representative abstract glyphs of ISO/IEC 10646"
 		'(long-name	"UCS glyphs for UCS"
@@ -837,7 +869,7 @@
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=ucs))
+		  mother	=>ucs@iso))
   (make-charset '=>>ucs@unicode
 		"Representative abstract glyphs of Unicode"
 		'(long-name	"Unicode abstract glyphs"