From: tomo <tomo>
Date: Sat, 19 Feb 2011 20:09:12 +0000 (+0000)
Subject: (U-00020112): Add ideographic-structure.
X-Git-Tag: r21-4-22-chise-0_25-6^20~480
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9c75df7ffc38c66631b899ae7dc43d1461efef7f;p=chise%2Fxemacs-chise.git-

(U-00020112): Add ideographic-structure.
(C6-2147): Unify CU+20112.
(U-00020114): Use `->denotational'.
(C6-2149): Unify CU+20114.
---

diff --git a/lisp/utf-2000/Ideograph-R006-Hook.el b/lisp/utf-2000/Ideograph-R006-Hook.el
index 31f2fcf..19550d5 100644
--- a/lisp/utf-2000/Ideograph-R006-Hook.el
+++ b/lisp/utf-2000/Ideograph-R006-Hook.el
@@ -197,6 +197,14 @@
   '((ideographic-radical . 6)	; ⼅
     (ideographic-strokes . 3)
     (total-strokes	 . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E3F)	; 丿
+      )
+     ((=ucs		  . #x624D)	; 才
+      ))
     (=ucs		. #x20112)	; 𠄒
     (->subsumptive
      ((hanyu-dazidian	  1 33 4)
@@ -222,6 +230,7 @@
 	)
        ((=gt		    . 00010)	; &GT-00010;
 	))
+      (=ucs@cns		  . #x20112)	; &C6-2147;
       (=cns11643-6	  . #x2147)	; &C6-2147; [01-39]
       ))
     ))
@@ -240,14 +249,25 @@
     (ideographic-strokes . 3)
     (total-strokes	 . 4)
     (=ucs		. #x20114)	; 𠄔
-    (=daikanwa		. 00234)	; &I-M-00234;
     ))
 (define-char
-  '((=>ucs		. #x20114)	; 𠄔
-    (morohashi-daikanwa	234 0 9)
+  '((<-denotational
+     ((=ucs		  . #x20114)	; 𠄔
+      ))
+    (ideographic-radical . 6)	; ⼅
+    (ideographic-strokes . 3)
+    (total-strokes	 . 4)
+    (=ucs@iso		. #x20114)	; &M-00234;
+    (=daikanwa		. 00234)	; &M-00234;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x20114)	; 𠄔
+      ))
     (ideographic-radical . 6)	; ⼅
     (ideographic-strokes . 3)
     (total-strokes	 . 4)
+    (=ucs@cns		. #x20114)	; &C6-2149;
     (=cns11643-6	. #x2149)	; &C6-2149; [01-41]
     ))
 (define-char