From 99236ca55a2daf656e9fb336bae7584c7b08528c Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 12 Mar 2020 21:31:50 +0900
Subject: [PATCH] (C6-2251): Unify U-00020ADA instead of A-IWDSU+20ADA and
 IU+20ADA; use A-cgnU+20ADA instead of U-00020ADA as its
 mother; add `<-denotational@usage' for BUCS+725F.
 (A-cgnU+20ADA): Changed from U-00020ADA; use
 `<-denotational@usage' instead of `<-denotational' for
 BUCS+725F. (HNG-KHI0106-0): Use A-cgnU+20ADA instead of
 U-00020ADA as its mother; add `<-denotational@usage' for
 BUCS+725F; modify component. (HNG-KHM0088-0): Use
 `<-denotational@usage' instead of `<-denotational' for
 BUCS+725F; add `<-denotational' for A-cgnU+20ADA.

---
 lisp/utf-2000/Ideograph-R028-Private.el |   63 +++++++++++++++++++++----------
 1 file changed, 43 insertions(+), 20 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R028-Private.el b/lisp/utf-2000/Ideograph-R028-Private.el
index bc47235..4ba2149 100644
--- a/lisp/utf-2000/Ideograph-R028-Private.el
+++ b/lisp/utf-2000/Ideograph-R028-Private.el
@@ -861,52 +861,72 @@
     ))
 (define-char
   '((<-denotational
-     ((==>ucs@bucs	  . #x725F)	; &BUCS+725F;
+     ((=>ucs@cognate	  . #x20ADA)	; &A-cgnU+20ADA;
       ))
-    (ideographic-radical . 28)	; ⼛
-    (=ucs		. #x20ADA)	; 𠫚
-    ))
-(define-char
-  '((<-denotational
-     ((=ucs		  . #x20ADA)	; 𠫚
+    (<-denotational@usage
+     ((==>ucs@bucs	  . #x725F)	; &BUCS+725F;
       ))
     (ideographic-radical . 28)	; ⼛
     (ideographic-strokes . 3)
-    (total-strokes	 . 4)
+    (total-strokes	 . 5)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=big5-cdp	  . #x8AAC)	; &CDP-8AAC;
+     ((=ucs		  . #x53B6)	; 厶
       )
-     ((=big5-cdp	  . #x8BF1)	; &CDP-8BF1;
+     ((=ucs		  . #x30001)	; 𰀁
       ))
-    (===hng-khi		. 01060)	; &HNG010-01060;
-    (<-formed
-     ((=ucs		  . #x725F)	; 牟
+    (=ucs		. #x20ADA)	; 𠫚
+    (=cns11643-6	. #x2251)	; &I-C6-2251; [02-49]
+    (->subsumptive
+     ((==ucs@iso	  . #x20ADA)	; &g2-IU-00020ADA;
+      (==cns11643-6	  . #x2251)	; &g2-IU-00020ADA; [02-49]
+      (->subsumptive
+       ((===cns11643-6	    . #x2251)	; &R-C6-2251; [02-49]
+	)
+       ((===ucs@iso	    . #x20ADA)	; &R-U-00020ADA;
+	))
+      ))
+    ))
+(define-char
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x725F)	; &BUCS+725F;
       ))
+    (ideographic-radical . 28)	; ⼛
+    (=>ucs@cognate	. #x20ADA)	; &A-cgnU+20ADA;
     ))
 (define-char
   '((<-denotational
-     ((=ucs		  . #x20ADA)	; 𠫚
+     ((=>ucs@cognate	  . #x20ADA)	; &A-cgnU+20ADA;
+      ))
+    (<-denotational@usage
+     ((==>ucs@bucs	  . #x725F)	; &BUCS+725F;
       ))
     (ideographic-radical . 28)	; ⼛
     (ideographic-strokes . 3)
-    (total-strokes	 . 5)
+    (total-strokes	 . 4)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #x53B6)	; 厶
+     ((=big5-cdp	  . #x8AAC)	; &CDP-8AAC;
       )
-     ((=big5-cdp	  . #x8BF1)	; &CDP-8BF1;
+     ((=ucs		  . #x3404)	; 㐄
+      ))
+    (===hng-khi		. 01060)	; &HNG010-01060;
+    (<-HNG@chise
+     ((=ucs		  . #x20ADA)	; 𠫚
+      ))
+    (<-formed
+     ((=ucs		  . #x725F)	; 牟
       ))
-    (=>ucs@iwds-1	. #x20ADA)	; &C6-2251;
-    (=ucs@iso		. #x20ADA)	; &C6-2251;
-    (=cns11643-6	. #x2251)	; &C6-2251; [02-49]
     ))
 (define-char
   '((<-denotational
+     ((=>ucs@cognate	  . #x20ADA)	; &A-cgnU+20ADA;
+      ))
+    (<-denotational@usage
      ((==>ucs@bucs	  . #x725F)	; &BUCS+725F;
       ))
     (ideographic-radical . 28)	; ⼛
@@ -921,6 +941,9 @@
      ((=ucs		  . #x5E72)	; å¹²
       ))
     (===hng-khm		. 00880)	; &HNG011-00880;
+    (<-HNG@chise
+     ((=ucs		  . #x20ADA)	; 𠫚
+      ))
     (<-formed
      ((=ucs		  . #x20ADA)	; 𠫚
       )
-- 
1.7.10.4