From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 5 Jul 2023 08:39:43 +0000 (+0900)
Subject: (A-MJ056967): New abstract node; use `<-denotational' for A-cgnU+5147;
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7c3d68ec242906a4f22596763e4f00b9dd3ac06b;p=chise%2Fxemacs-chise.git

(A-MJ056967): New abstract node; use `<-denotational' for A-cgnU+5147;
unify A-U+5147-itaiji-003.
(U+5147-itaiji-003): New character; use `<-denotational' for
A-MJ056967.
(HD-KS015720): Unify MJ056967; use A-MJ056967 instead of A-cgnU+5147
as its mother.
---

diff --git a/lisp/utf-2000/Ideograph-R010-Legs.el b/lisp/utf-2000/Ideograph-R010-Legs.el
index 515f152..6b8d851 100644
--- a/lisp/utf-2000/Ideograph-R010-Legs.el
+++ b/lisp/utf-2000/Ideograph-R010-Legs.el
@@ -1424,19 +1424,62 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=hanyo-denshi/ks	  . 021320)	; &HD-KS-021320;
+     ((=mj		  . 057037)	; &MJ057037;
+      )
+     ((=>ucs@component	  . #x513F)	; &A-compU+513F;
+      (=>iwds-1		  .  0222)	; &A-compU+513F;
+      ))
+    (=>mj		. 056967)	; &A-MJ056967;
+    (=>ucs-itaiji-003	. #x5147)	; &A-MJ056967;
+    ))
+(define-char
+  '((<-denotational
+     ((=>mj		  . 056967)	; &A-MJ056967;
+      ))
+    (ideographic-radical . 10)	; ⼉
+    (ideographic-strokes . 4)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=mj		  . 057037)	; &MJ057037;
+      )
+     ((=ucs		  . #x516B)	; 八
+      ))
+    (=ucs-itaiji-003	. #x5147)	; &U-i003+5147;
+    ))
+(define-char
+  '((<-denotational
+     ((=>mj		  . 056967)	; &A-MJ056967;
+      ))
+    (ideographic-radical . 10)	; ⼉
+    (ideographic-strokes . 4)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=mj		  . 057037)	; &MJ057037;
       )
      ((=ucs		  . #x513F)	; 儿
       ))
-    (=hanyo-denshi/ks	. 015720)	; &HD-KS-015720;
+    (=mj		. 056967)	; &MJ056967;
+    (=hanyo-denshi/ks	. 015720)	; &MJ056967;
     (->subsumptive
      ((=decomposition@hanyo-denshi
        ((=ucs		    . #x5147)	; 兇
 	)
        ((=ucs		    . #xE0102)	; 󠄂
 	))
-      (==hanyo-denshi/ks  . 015720)	; &g2-HD-KS-015720;
-      (=hanyo-denshi/ks/mf . #x0624)	; &g2-HD-KS-015720;
+      (==mj		  . 056967)	; &g2-MJ056967;
+      (==hanyo-denshi/ks  . 015720)	; &g2-MJ056967;
+      (->subsumptive
+       ((===hanyo-denshi/ks . 015720)	; &R-HD-KS-015720;
+	(=hanyo-denshi/ks/mf . #x0624)	; &R-HD-KS-015720;
+	)
+       ((===mj		    . 056967)	; &R-MJ056967;
+	))
       ))
     ))
 (define-char