(U+343A-itaiji-003): Use U-0002B851 instead of U+343A as its mother;

use `ideographic-{radical|strokes}@r009' instead of
`ideographic-{radical|strokes}'; add
`ideographic-{radical|strokes}@ucs'.
(BC-8C76): Ditto; unify hanaJU+2B851.

diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index 7876f34..265d0bb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -8779,51 +8779,6 @@
     (=ucs-var-001      . #x343A)       ; &U-v001+343A;
     ))
 (define-char
-  '((<-denotational
-     ((=ucs              . #x343A)     ; 㐺
-      ))
-    (ideographic-radical . 9)  ; ⼈
-    (ideographic-strokes . 4)
-    (total-strokes      . 6)
-    (ideographic-structure
-     ((=ucs-itaiji-001   . #x2FFB)     ; &U-i001+2FFB;
-      )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-       (=ucs               . #x2FF0)   ; ⿰
-       )
-       ((=ucs              . #x4E3F)   ; 丿
-       )
-       ((=ucs              . #x4E28)   ; 丨
-       ))
-      )
-     ((=ucs              . #x4ECE)     ; 从
-      ))
-    (=ucs-itaiji-003   . #x343A)       ; &U-i003+343A;
-    (->subsumptive
-     ((==ucs-itaiji-003          . #x343A)     ; &g2-U-i003+343A;
-      ))
-    ))
-(define-char
-  '((<-denotational
-     ((=ucs              . #x343A)     ; 㐺
-      ))
-    (ideographic-radical . 9)  ; ⼈
-    (ideographic-strokes . 4)
-    (total-strokes      . 6)
-    (ideographic-structure
-     ((=ucs-itaiji-001   . #x2FFB)     ; &U-i001+2FFB;
-      )
-     ((=ucs              . #x4EBB)     ; 亻
-      )
-     ((=ucs              . #x4ECE)     ; 从
-      ))
-    (=big5-cdp         . #x8C76)       ; &CDP-8C76;
-    (->subsumptive
-     ((==big5-cdp        . #x8C76)     ; &g2-CDP-8C76;
-      ))
-    ))
-(define-char
   '((<-denotational@component
      ((=>ucs@iwds-1      . #x3432)     ; &A-IWDSU+3432;
       (=>ucs@iwds-1/normalized . #x3432)       ; &A-IWDSU+3432;
@@ -17719,6 +17674,58 @@
     (=ucs              . #x2A734)      ; 𪜴
     ))
 (define-char
+  '((<-denotational
+     ((=ucs              . #x2B851)    ; 𫡑
+      ))
+    (ideographic-radical@ucs . 4)      ; ⼃
+    (ideographic-strokes@ucs . 5)
+    (ideographic-radical@r009 . 9)     ; ⼈
+    (ideographic-strokes@r009 . 4)
+    (total-strokes      . 6)
+    (ideographic-structure
+     ((=ucs-itaiji-001   . #x2FFB)     ; &U-i001+2FFB;
+      )
+     ((=ucs              . #x4EBB)     ; 亻
+      )
+     ((=ucs              . #x4ECE)     ; 从
+      ))
+    (=ucs@JP/hanazono  . #x2B851)      ; &CDP-8C76;
+    (=big5-cdp         . #x8C76)       ; &I-CDP-8C76;
+    (->subsumptive
+     ((==big5-cdp        . #x8C76)     ; &g2-CDP-8C76;
+      )
+     ((==ucs@JP/hanazono  . #x2B851)   ; &g2-hanaJU+2B851;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x2B851)    ; 𫡑
+      ))
+    (ideographic-radical@ucs . 4)      ; ⼃
+    (ideographic-strokes@ucs . 5)
+    (ideographic-radical@r009 . 9)     ; ⼈
+    (ideographic-strokes@r009 . 4)
+    (total-strokes      . 6)
+    (ideographic-structure
+     ((=ucs-itaiji-001   . #x2FFB)     ; &U-i001+2FFB;
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+       (=ucs               . #x2FF0)   ; ⿰
+       )
+       ((=ucs              . #x4E3F)   ; 丿
+       )
+       ((=ucs              . #x4E28)   ; 丨
+       ))
+      )
+     ((=ucs              . #x4ECE)     ; 从
+      ))
+    (=ucs-itaiji-003   . #x343A)       ; &U-i003+343A;
+    (->subsumptive
+     ((==ucs-itaiji-003          . #x343A)     ; &g2-U-i003+343A;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 9)  ; ⼈
     (ideographic-strokes . 5)
     (total-strokes      . 7)