From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 23 Jun 2017 14:25:36 +0000 (+0900)
Subject: (U-000233BC): Use `->subsumptive'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=78027986a2987afdece61e93c22e197cb5674af8;p=chise%2Fxemacs-chise.git-

(U-000233BC): Use `->subsumptive'.
---

diff --git a/lisp/utf-2000/Ideograph-R075-Tree.el b/lisp/utf-2000/Ideograph-R075-Tree.el
index 7da931a..44a1277 100644
--- a/lisp/utf-2000/Ideograph-R075-Tree.el
+++ b/lisp/utf-2000/Ideograph-R075-Tree.el
@@ -946,19 +946,37 @@
     (=cns11643-4	. #x227B)	; &C4-227B; [02-91]
     ))
 (define-char
-  '((=>ucs		. #x233BC)	; 𣎼
-    (ideographic-radical . 75)	; ⽊
-    (ideographic-strokes . 2)
-    (total-strokes	 . 6)
-    (=daikanwa		. 14445)	; &M-14445;
-    ))
-(define-char
-  '((morohashi-daikanwa	14445 0 1)
-    (ideographic-radical . 75)	; ⽊
+  '((ideographic-radical . 75)	; ⽊
     (ideographic-strokes . 2)
     (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x9FB4)	; é¾´
+      )
+     ((=ucs		  . #x6728)	; 木
+      ))
     (=ucs		. #x233BC)	; 𣎼
     (=cns11643-6	. #x2521)	; &I-C6-2521; [05-01]
+    (=daikanwa		. 14445)	; &I-M-14445;
+    (<-ancient
+     ((=ucs		  . #x4FDD)	; 保
+      (=daikanwa	  . 00702)	; &I-M-00702;
+      ))
+    (<-ancient*sources
+     shuowen daikanwa)
+    (->subsumptive
+     ((==daikanwa	  . 14445)	; &g2-M-14445;
+      )
+     ((==ucs@iso	  . #x233BC)	; &g2-IU-000233BC;
+      (==cns11643-6	  . #x2521)	; &g2-IU-000233BC; [05-01]
+      (->subsumptive
+       ((===cns11643-6	    . #x2521)	; &R-C6-2521; [05-01]
+	)
+       ((===ucs@iso	    . #x233BC)	; &R-U-000233BC;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 75)	; ⽊