From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 1 Mar 2018 05:18:27 +0000 (+0900)
Subject: (M-08738): Unify U-0002202A.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=adbca91dbb64330e4d806b550163b0b6fc3cb20b;p=chise%2Fxemacs-chise.git.1

(M-08738): Unify U-0002202A.
---

diff --git a/lisp/utf-2000/Ideograph-R048-Work.el b/lisp/utf-2000/Ideograph-R048-Work.el
index 12b1a91..c89e387 100644
--- a/lisp/utf-2000/Ideograph-R048-Work.el
+++ b/lisp/utf-2000/Ideograph-R048-Work.el
@@ -1332,7 +1332,61 @@
   '((ideographic-radical . 48)	; ⼯
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
-    (=daikanwa		. 08738)	; &M-08738;
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5DE5)	; å·¥
+      )
+     ((=ucs		  . #x2E986)	; 𮦆
+      ))
+    (sound@ja/on	"zi")
+    (=ucs		. #x2202A)	; 𢀪
+    (=daikanwa		. 08738)	; &I-M-08738;
+    (->subsumptive
+     ((==ucs@iso	  . #x2202A)	; &g2-M-08738;
+      (==daikanwa	  . 08738)	; &g2-M-08738;
+      (->subsumptive
+       ((===daikanwa	    . 08738)	; &R-M-08738;
+	)
+       ((===ucs@iso	    . #x2202A)	; &R-U-0002202A;
+	))
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 48)	; ⼯
+    (ideographic-strokes . 12)
+    (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5DE0)	; å· 
+      )
+     ((=ucs		  . #x51ED)	; 凭
+      ))
+    (=ucs		. #x2202B)	; 𢀫
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2202B)	; 𢀫
+      ))
+    (ideographic-radical . 48)	; ⼯
+    (ideographic-strokes . 12)
+    (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5DE0)	; å· 
+      )
+     ((=ucs@unicode	  . #x51ED)	; &AJ1-04246;
+      (=adobe-japan1-0	  . 04246)	; &AJ1-04246;
+      ))
+    (=ucs@iso		. #x2202B)	; &U-0002202B;
+    (->subsumptive
+     ((==ucs@iso	  . #x2202B)	; &g2-IU-0002202B;
+      ))
     ))
 (define-char
   '((ideographic-radical . 48)	; ⼯