From 2b5721403e600c86886a2196c38be597499a4f55 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 12 Feb 2022 17:45:20 +0900
Subject: [PATCH] (U+20004-var-002): New character; use `<-subsumptive' for
 U-00020004. (U-0002B740): Use `<-denotational' for
 A-compU+2B740. (U-00020017): Apply new conventions for
 glyph granularity.

---
 lisp/utf-2000/Ideograph-R001-One.el |   29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index 13ff502..a45a65c 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -1561,6 +1561,8 @@
 	 ((===ucs@iso	      . #x20004)	; &R-U-00020004;
 	  ))
 	))
+      )
+     ((=ucs-var-002	  . #x20004)	; &U-v002+20004;
       ))
     ))
 (define-char
@@ -1656,7 +1658,10 @@
     (=ucs-var-001	. #x2A701)	; &U-v001+2A701;
     ))
 (define-char
-  '((ideographic-radical . 1)	; ⼀
+  '((<-denotational
+     ((=>ucs@component	  . #x2B740)	; &A-compU+2B740;
+      ))
+    (ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 2)
     (total-strokes	 . 3)
     (ideographic-structure
@@ -4505,8 +4510,6 @@
     ))
 (define-char
   '((ideographic-radical . 1)	; ⼀
-    (ideographic-strokes . 4)
-    (total-strokes	 . 5)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -4516,7 +4519,25 @@
      ((=ucs		  . #x4E3F)	; 丿
       ))
     (=ucs		. #x20017)	; 𠀗
-    (=big5-cdp		. #x8C72)	; &I-CDP-8C72;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x20017)	; 𠀗
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x9FB7)	; &CDP-8B5C;
+      (=big5-cdp	  . #x8B5C)	; &CDP-8B5C;
+      )
+     ((=ucs		  . #x4E3F)	; 丿
+      ))
+    (=ucs@iso		. #x20017)	; &CDP-8C72;
+    (=big5-cdp		. #x8C72)	; &CDP-8C72;
     (->subsumptive
      ((==ucs@iso	  . #x20017)	; &g2-IU-00020017;
       )
-- 
1.7.10.4