From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 28 Jun 2022 03:24:28 +0000 (+0900)
Subject: (U+343A-itaiji-003): Use U-0002B851 instead of U+343A as its mother;
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d3e21093fd16c46881fa00b7319a08d9afe7fc26;p=chise%2Fxemacs-chise.git

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