From e42c8b7456b5b0c698b9f6f2f43ebfe1b90efd1c Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 20 May 2021 20:03:03 +0900
Subject: [PATCH] (U+518E): Unify IWDS1-0338. (GT-K02493): New character; use
 `<-denotational' for JU+518E. (U+518E-var-001): New
 character; use `<-denotational' for A-cgnU+518E.
 (MJ057006): Unify GT-K02339. (U-0002D072): New character.

---
 lisp/utf-2000/Ideograph-R013-Down-Box.el |   75 ++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index 9ccf940..35755ff 100644
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -2386,6 +2386,7 @@
       ))
     (ideographic-radical . 13)	; ⼌
     (=ucs		. #x518E)	; 冎
+    (=>iwds-1		.  0338)	; 冎
     ))
 (define-char
   '((<-denotational
@@ -2444,6 +2445,22 @@
     ))
 (define-char
   '((<-denotational
+     ((=ucs@cns		  . #x518E)	; &AJ1-21183;
+      (=ucs@jis		  . #x518E)	; &AJ1-21183;
+      (=adobe-japan1-6	  . 21183)	; &AJ1-21183;
+      ))
+    (ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 4)
+    (total-strokes	 . 6)
+    (=gt-k		. 02493)	; &GT-K02493;
+    (=gt-pj-k1		. #x3230)	; &GT-K02493; [18-16]
+    (->subsumptive
+     ((==gt-k		  . 02493)	; &g2-GT-K02493;
+      (==gt-pj-k1	  . #x3230)	; &g2-GT-K02493; [18-16]
+      ))
+    ))
+(define-char
+  '((<-denotational
      ((=ucs		  . #x518E)	; 冎
       ))
     (ideographic-radical . 13)	; ⼌
@@ -2499,6 +2516,27 @@
     ))
 (define-char
   '((<-denotational
+     ((=>ucs@cognate	  . #x518E)	; &A-cgnU+518E;
+      ))
+    (ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 4)
+    (total-strokes	 . 6)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((name		  . "CJK RADICAL NET ONE")
+      (=ucs		  . #x2EB1)	; ⺱
+      )
+     ((=ucs		  . #x5182)	; 冂
+      ))
+    (=ucs-var-001	. #x518E)	; &U-v001+518E;
+    (->subsumptive
+     ((==ucs-var-001	  . #x518E)	; &g2-U-v001+518E;
+      ))
+    ))
+(define-char
+  '((<-denotational
      ((=>mj		  . 057006)	; &A-MJ057006;
       ))
     (ideographic-radical . 13)	; ⼌
@@ -2514,14 +2552,20 @@
       ))
     (=mj		. 057006)	; &MJ057006;
     (=hanyo-denshi/ks	. 018060)	; &MJ057006;
+    (=gt-k		. 02339)	; &I-GT-K02339;
+    (=gt-pj-k1		. #x6976)	; &MJ057006; [73-86]
     (->subsumptive
      ((==mj		  . 057006)	; &g2-MJ057006;
       (==hanyo-denshi/ks  . 018060)	; &g2-MJ057006;
+      (==gt-k		  . 02339)	; &g2-MJ057006;
+      (==gt-pj-k1	  . #x6976)	; &g2-MJ057006; [73-86]
       (->subsumptive
        ((===hanyo-denshi/ks . 018060)	; &R-HD-KS-018060;
 	(=hanyo-denshi/ks/mf . #x070E)	; &R-HD-KS-018060;
 	)
        ((===mj		    . 057006)	; &R-MJ057006;
+	)
+       ((===gt-k	    . 02339)	; &R-GT-K02339;
 	))
       ))
     ))
@@ -5985,6 +6029,37 @@
     (=hanziku-4		. #xE6F1)	; &I-HZK04-E6F1;
     ))
 (define-char
+  '((ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 17)
+    (total-strokes	 . 19)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x3698)	; 㚘
+      )
+     ((=>big5-cdp	  . #x8574)	; &A-CDP-8574;
+      ))
+    (=ucs		. #x2D072)	; 𭁲
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2D072)	; 𭁲
+      ))
+    (ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 17)
+    (total-strokes	 . 19)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x3698)	; 㚘
+      )
+     ((=big5-cdp-var-001  . #x8574)	; &CDP-v001-8574;
+      ))
+    (=ucs@JP/hanazono	. #x2D072)	; &hanaJU+2D072;
+    ))
+(define-char
   '((ideographic-radical@ucs . 72)	; ⽇
     (ideographic-strokes@ucs . 16)
     (ideographic-radical@cns . 13)	; ⼌
-- 
1.7.10.4