From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 22 May 2017 14:29:41 +0000 (+0900)
Subject: (U-00021B20): Apply new conventions for glyph granularity.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e06df4190015c6e37d65cbe090553d92d2c12c14;p=chise%2Fxemacs-chise.git-

(U-00021B20): Apply new conventions for glyph granularity.
(IU+21B20): Unify BC-8D42; add `<-same' for KU+7235.
(U+21B20-itaiji-001): New character; use `<-formed' for U-00021B20.
---

diff --git a/lisp/utf-2000/Ideograph-R041-Inch.el b/lisp/utf-2000/Ideograph-R041-Inch.el
index 6aadd9d..2a483d4 100644
--- a/lisp/utf-2000/Ideograph-R041-Inch.el
+++ b/lisp/utf-2000/Ideograph-R041-Inch.el
@@ -657,11 +657,58 @@
     ))
 (define-char
   '((ideographic-radical . 41)	; ⼨
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=>ucs@component	  . #x7680)	; &A-compU+7680;
+      (=>iwds-1		  .  0355)	; &A-compU+7680;
+      )
+     ((=ucs		  . #x5BF8)	; 寸
+      ))
+    (=ucs		. #x21B20)	; 𡬠
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x21B20)	; 𡬠
+      ))
+    (ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
-    (=ucs		. #x21B20)	; 𡬠
-    (=cns11643-6	. #x2A69)	; &I-C6-2A69; [10-73]
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=big5-cdp	  . #x8B7C)	; &CDP-8B7C;
+      )
+     ((=ucs		  . #x5BF8)	; 寸
+      ))
+    (=ucs@iso		. #x21B20)	; &C6-2A69;
+    (=cns11643-6	. #x2A69)	; &C6-2A69; [10-73]
+    (=big5-cdp		. #x8D42)	; &I-CDP-8D42;
     (=daikanwa		. 07423)	; &I-M-07423;
+    (<-same
+     ((=ucs@ks		  . #x7235)	; &MJ016748;
+      (=mj		  . 016748)	; &MJ016748;
+      (=daikanwa	  . 19711)	; &I-M-19711;
+      ))
+    (<-same*sources
+     zihui-bu daikanwa)
+    (->subsumptive
+     ((==ucs@iso	  . #x21B20)	; &g2-CDP-8D42;
+      (==cns11643-6	  . #x2A69)	; &g2-CDP-8D42; [10-73]
+      (==big5-cdp	  . #x8D42)	; &g2-CDP-8D42;
+      (==daikanwa	  . 07423)	; &g2-CDP-8D42;
+      (->subsumptive
+       ((===daikanwa	    . 07423)	; &R-M-07423;
+	)
+       ((===big5-cdp	    . #x8D42)	; &R-CDP-8D42;
+	)
+       ((===cns11643-6	    . #x2A69)	; &R-C6-2A69; [10-73]
+	)
+       ((===ucs@iso	    . #x21B20)	; &R-U-00021B20;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 41)	; ⼨
@@ -1445,13 +1492,13 @@
      ((==>ucs@bucs	  . #x5C08)	; &BUCS+5C08;
       ))
     (ideographic-radical . 41)	; ⼨
-    (=>ucs@component	. #x5C08)	; &IWDS1-387;
-    (=>iwds-1		.  0387)	; &IWDS1-387;
+    (=>ucs@component	. #x5C08)	; &A-compU+5C08;
+    (=>iwds-1		.  0387)	; &A-compU+5C08;
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x5C08)	; &IWDS1-387;
-      (=>iwds-1		  .  0387)	; &IWDS1-387;
+     ((=>ucs@component	  . #x5C08)	; &A-compU+5C08;
+      (=>iwds-1		  .  0387)	; &A-compU+5C08;
       ))
     (ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 8)
@@ -1600,8 +1647,8 @@
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x5C08)	; &IWDS1-387;
-      (=>iwds-1		  .  0387)	; &IWDS1-387;
+     ((=>ucs@component	  . #x5C08)	; &A-compU+5C08;
+      (=>iwds-1		  .  0387)	; &A-compU+5C08;
       ))
     (ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 6)
@@ -2193,6 +2240,23 @@
     ))
 (define-char
   '((ideographic-radical . 41)	; ⼨
+    (ideographic-strokes . 10)
+    (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x9B2F)	; 鬯
+      )
+     ((=ucs		  . #x5BF8)	; 寸
+      ))
+    (=ucs-itaiji-001	. #x21B20)	; &U-i001+21B20;
+    (<-formed
+     ((=ucs		  . #x21B20)	; 𡬠
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 11)
     (total-strokes	 . 14)
     (ideographic-structure
@@ -2357,8 +2421,8 @@
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x58FD)	; &IWDS1-330;
-      (=>iwds-1		  .  0330)	; &IWDS1-330;
+     ((=>ucs@component	  . #x58FD)	; &A-compU+58FD;
+      (=>iwds-1		  .  0330)	; &A-compU+58FD;
       ))
     (ideographic-radical@ucs . 33)	; â¼ 
     (ideographic-radical@cns . 41)	; ⼨