From: tomo <tomo>
Date: Wed, 1 Dec 2004 10:03:48 +0000 (+0000)
Subject: - Add some `=ucs@cns' features.
X-Git-Tag: r21-4-15-chise-0_21-32^2~143
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dc1de95066f4513a05a011a5e82810466ef84e29;p=chise%2Fxemacs-chise.git-

- Add some `=ucs@cns' features.
- Use `->subsumptive' or `{<-|->}denotational' for some character
  definitions.
---

diff --git a/lisp/utf-2000/Ideograph-R042-Small.el b/lisp/utf-2000/Ideograph-R042-Small.el
index 94c1971..f8c5f9f 100644
--- a/lisp/utf-2000/Ideograph-R042-Small.el
+++ b/lisp/utf-2000/Ideograph-R042-Small.el
@@ -21,15 +21,29 @@
     (total-strokes	 . 4)
     (=ucs		. #x5C10)	; 尐
     (=big5		. #xC95C)	; &I-B-C95C;
-    (=daikanwa		. 07474)	; &I-M-07474;
     ))
 (define-char
-  '((=>ucs		. #x5C10)	; 尐
-    (morohashi-daikanwa	7474 0 1)
-    (ideographic-radical . 42)	; ⼩
+  '((ideographic-radical . 42)	; ⼩
+    (ideographic-strokes . 1)
+    (total-strokes	 . 4)
+    (<-denotational
+     ((=ucs		  . #x5C10)	; 尐
+      ))
+    (->subsumptive
+     ((=daikanwa	  . 07474)	; &M-07474;
+      )
+     ((=ucs@unicode	  . #x5C10)	; &UU+5C10;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 42)	; ⼩
     (ideographic-strokes . 1)
     (total-strokes	 . 4)
+    (<-denotational
+     ((=ucs		  . #x5C10)	; 尐
+      ))
     (=cns11643-2	. #x213C)	; &C2-213C; [01-28]
+    (=ucs@cns		. #x5C10)	; &C2-213C;
     ))
 (define-char
   '((=>ucs		. #x5C11)	; 少