(U-00030021): New character.

(U+81E4-itaiji-001): Add `<-subsumptive' for hanaJU+30021.
(GT-K00654): Use `<-subsumptive' for hanaJU+30021 instead of
`<-subsumptive' for U+81E4-itaiji-001.
(GT-K00651): Use `<-denotational' for U-00030021 instead of
`<-subsumptive' for U+81E4-itaiji-001.
(U-00030022): New character.
(U+76D1-itaiji-003): Unify hanaJU+30022; add `<-denotational' for
U-00030022; use `ideographic-{radical|strokes}@misc' instead of
`ideographic-{radical|strokes}'; add
`ideographic-{radical|strokes}@ucs'.

diff --git a/lisp/utf-2000/Ideograph-R018-Knife.el b/lisp/utf-2000/Ideograph-R018-Knife.el
index 161f9e4..730939a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R018-Knife.el
+++ b/lisp/utf-2000/Ideograph-R018-Knife.el
@@ -1442,6 +1442,83 @@
       ))
     ))
 (define-char
+  '((ideographic-radical@ucs . 2)      ; ⼁
+    (ideographic-strokes@ucs . 3)
+    (ideographic-radical@misc . 18)    ; ⼑
+    (ideographic-strokes@misc . 2)
+    (total-strokes      . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=>ucs@component   . #x5202)     ; &A-compU+5202;
+      )
+     ((=ucs              . #x53C8)     ; 又
+      ))
+    (=ucs              . #x30021)      ; 𰀡
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x30021)    ; 𰀡
+      ))
+    (ideographic-radical@ucs . 2)      ; ⼁
+    (ideographic-strokes@ucs . 3)
+    (ideographic-radical@misc . 18)    ; ⼑
+    (ideographic-strokes@misc . 2)
+    (total-strokes      . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=big5-cdp         . #x8969)     ; &CDP-8969;
+      )
+     ((=ucs              . #x53C8)     ; 又
+      ))
+    (=ucs@JP/hanazono  . #x30021)      ; &hanaJU+30021;
+    (<-simplified@CN/component
+     ((=ucs              . #x81E4)     ; 臤
+      ))
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x30021)   ; &g2-hanaJU+30021;
+      )
+     ((=ucs-itaiji-001   . #x81E4)     ; &U-i001+81E4;
+      (->subsumptive
+       ((==ucs-itaiji-001   . #x81E4)  ; &g2-U-i001+81E4;
+       ))
+      )
+     ((=gt-k             . 00654)      ; &GT-K00654;
+      (=gt-pj-k1         . #x692F)     ; &GT-K00654; [73-15]
+      (->subsumptive
+       ((==gt-k                    . 00654)    ; &g2-GT-K00654;
+       (==gt-pj-k1         . #x692F)   ; &g2-GT-K00654; [73-15]
+       ))
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x30021)    ; 𰀡
+      ))
+    (ideographic-radical@ucs . 2)      ; ⼁
+    (ideographic-strokes@ucs . 3)
+    (ideographic-radical@misc . 18)    ; ⼑
+    (ideographic-strokes@misc . 2)
+    (total-strokes      . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=big5-cdp         . #x8968)     ; &CDP-8968;
+      )
+     ((=ucs              . #x53C8)     ; 又
+      ))
+    (=gt-k             . 00651)        ; &GT-K00651;
+    (=gt-pj-k1         . #x446F)       ; &GT-K00651; [36-79]
+    (->subsumptive
+     ((==gt-k            . 00651)      ; &g2-GT-K00651;
+      (==gt-pj-k1        . #x446F)     ; &g2-GT-K00651; [36-79]
+      ))
+    ))
+(define-char
   '((ideographic-radical . 18) ; ⼑
     (ideographic-strokes . 2)
     (total-strokes      . 3)
@@ -1506,30 +1583,6 @@
     (ideographic-strokes . 2)
     (total-strokes      . 4)
     (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs              . #x2FF0)     ; ⿰
-      )
-     ((=big5-cdp         . #x8969)     ; &CDP-8969;
-      )
-     ((=ucs              . #x53C8)     ; 又
-      ))
-    (=ucs-itaiji-001   . #x81E4)       ; &U-i001+81E4;
-    (<-simplified@CN/component
-     ((=ucs              . #x81E4)     ; 臤
-      ))
-    (->subsumptive
-     ((=gt-k             . 00654)      ; &GT-K00654;
-      (=gt-pj-k1         . #x692F)     ; &GT-K00654; [73-15]
-      )
-     ((=gt-k             . 00651)      ; &GT-K00651;
-      (=gt-pj-k1         . #x446F)     ; &GT-K00651; [36-79]
-      ))
-    ))
-(define-char
-  '((ideographic-radical . 18) ; ⼑
-    (ideographic-strokes . 2)
-    (total-strokes      . 4)
-    (ideographic-structure
      ((name              . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
       (=ucs              . #x2FFB)     ; ⿻
       )
@@ -2147,8 +2200,29 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 18) ; ⼑
-    (ideographic-strokes . 3)
+  '((ideographic-radical@ucs . 2)      ; ⼁
+    (ideographic-strokes@ucs . 4)
+    (ideographic-radical@misc . 18)    ; ⼑
+    (ideographic-strokes@misc . 3)
+    (total-strokes      . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=big5-cdp         . #x8969)     ; &CDP-8969;
+      )
+     ((=+>big5-cdp       . #x8C74)     ; &o-CDP-8C74;
+      ))
+    (=ucs              . #x30022)      ; 𰀢
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x30022)    ; 𰀢
+      ))
+    (ideographic-radical@ucs . 2)      ; ⼁
+    (ideographic-strokes@ucs . 4)
+    (ideographic-radical@misc . 18)    ; ⼑
+    (ideographic-strokes@misc . 3)
     (total-strokes      . 5)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -2158,10 +2232,15 @@
       )
      ((=big5-cdp         . #x89BC)     ; &CDP-89BC;
       ))
+    (=ucs@JP/hanazono  . #x30022)      ; &U-i003+76D1;
     (=ucs-itaiji-003   . #x76D1)       ; &U-i003+76D1;
     (<-simplified@CN/component
      ((=big5-cdp         . #x8CC9)     ; &CDP-8CC9;
       ))
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x30022)   ; &g2-U-i003+76D1;
+      (==ucs-itaiji-003          . #x76D1)     ; &g2-U-i003+76D1;
+      ))
     ))
 (define-char
   '((ideographic-radical . 18) ; ⼑