(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.

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index 13ff502..a45a65c 100644 (file)
--- 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;
       )