From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 8 May 2021 11:01:01 +0000 (+0900)
Subject: (A-U+5140-itaiji-002): New abstract node; use
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ff8cf6d33b3d6a4e01dc914fa96b3dea5ebb5c74;p=chise%2Fxemacs-chise.git

(A-U+5140-itaiji-002): New abstract node; use
`<-denotational@component' for A-IWDSU+4E38.
(U+5140-itaiji-002): New character; use `<-denotational' for
A-U+5140-itaiji-002; use `<-denotational@component' for U+5140.
(A-IWDSU+516E): Add `<-denotational@component' for A-IWDSU+2009E;
delete `=>ucs@iwds-1/normalized'.
(A-IWDSU+2009E): New abstract node; use `<-denotational@component' for
A-IWDSU+20012.
---

diff --git a/lisp/utf-2000/Ideograph-R012-Eight.el b/lisp/utf-2000/Ideograph-R012-Eight.el
index c56db6b..04045ba 100644
--- a/lisp/utf-2000/Ideograph-R012-Eight.el
+++ b/lisp/utf-2000/Ideograph-R012-Eight.el
@@ -248,6 +248,48 @@
     ))
 (define-char
   '((<-denotational@component
+     ((=>ucs@iwds-1	  . #x4E38)	; &A-IWDSU+4E38;
+      (=>iwds-1		  .  65535)	; &A-IWDSU+4E38;
+      ))
+    (ideographic-radical . 12)	; ⼋
+    (ideographic-strokes . 1)
+    (total-strokes	 . 3)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E3F)	; 丿
+      )
+     ((=>ucs@component	  . #x4E37)	; &A-compU+4E37;
+      (=>iwds-1		  .  0022)	; &A-compU+4E37;
+      ))
+    (=>ucs-itaiji-002	. #x5140)	; &A-U-i002+5140;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-002	  . #x5140)	; &A-U-i002+5140;
+      ))
+    (<-denotational@component
+     ((=ucs		  . #x5140)	; 兀
+      ))
+    (ideographic-radical . 12)	; ⼋
+    (ideographic-strokes . 1)
+    (total-strokes	 . 3)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E3F)	; 丿
+      )
+     ((=ucs		  . #x516B)	; 八
+      ))
+    (=ucs-itaiji-002	. #x5140)	; &U-i002+5140;
+    (->subsumptive
+     ((==ucs-itaiji-002	  . #x5140)	; &g2-U-i002+5140;
+      ))
+    ))
+(define-char
+  '((<-denotational@component
      ((=>ucs@component	  . #x516C)	; &A-compU+516C;
       )
      ((=>ucs@iwds-1	  . #x516C)	; &A-IWDSU+516C;
@@ -665,7 +707,10 @@
       ))
     ))
 (define-char
-  '((<-denotational@usage
+  '((<-denotational@component
+     ((=>ucs@iwds-1	  . #x2009E)	; &A-IWDSU+2009E;
+      ))
+    (<-denotational@usage
      ((==>daijiten	  . 00598)	; &A2-DJT-00598;
       ))
     (ideographic-radical . 12)	; ⼋
@@ -681,12 +726,10 @@
      ((=ucs		  . #x4E02)	; 丂
       ))
     (=>ucs@iwds-1	. #x516E)	; &A-IWDSU+516E;
-    (=>ucs@iwds-1/normalized . #x516E)	; &A-IWDSU+516E;
     ))
 (define-char
   '((<-denotational
      ((=>ucs@iwds-1	  . #x516E)	; &A-IWDSU+516E;
-      (=>ucs@iwds-1/normalized . #x516E)	; &A-IWDSU+516E;
       ))
     (ideographic-radical . 12)	; ⼋
     (ideographic-strokes . 2)
@@ -728,17 +771,6 @@
 	)
        ((=ucs		    . #xE0101)	; 󠄁
 	))
-      (ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((==ucs@jis	    . #x516B)	; &g2-MJ007273;
-	(==ucs@ks	    . #x516B)	; &g2-MJ007273;
-	(==mj		    . 007273)	; &g2-MJ007273;
-	)
-       ((==ucs@unicode	    . #x4E02)	; &g2-AJ1-17234;
-	(==adobe-japan1-5   . 17234)	; &g2-AJ1-17234;
-	))
       (==ucs@jis	  . #x516E)	; &g2-MJ007278;
       (==ucs@ks		  . #x516E)	; &g2-MJ007278;
       (==mj		  . 007278)	; &g2-MJ007278;
@@ -771,17 +803,7 @@
 	(===ks-x1001	    . #x7B31)	; &R-K0-7B31; [91-17]
 	))
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((==ucs@cns	    . #x516B)	; &g2-CU+516B;
-	(==cns11643-1	    . #x442C)	; &g2-CU+516B; [36-12]
-	)
-       ((==ucs@unicode	    . #x4E02)	; &g2-AJ1-17234;
-	(==adobe-japan1-5   . 17234)	; &g2-AJ1-17234;
-	))
-      (==ucs@cns	  . #x516E)	; &g2-CU+516E;
+     ((==ucs@cns	  . #x516E)	; &g2-CU+516E;
       (==cns11643-1	  . #x447B)	; &g2-CU+516E; [36-91]
       (->subsumptive
        ((===cns11643-1	    . #x447B)	; &R-C1-447B; [36-91]
@@ -806,16 +828,6 @@
 	  )
 	 ((=ucs		      . #xE0102)	; 󠄂
 	  ))
-	(ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	  (=ucs		      . #x2FF1)	; ⿱
-	  )
-	 ((==ucs@unicode      . #x516B)	; &g2-MJ007274;
-	  (==mj		      . 007274)	; &g2-MJ007274;
-	  )
-	 ((==ucs@unicode      . #x4E02)	; &g2-AJ1-17234;
-	  (==adobe-japan1-5   . 17234)	; &g2-AJ1-17234;
-	  ))
 	(==ucs@unicode	    . #x516E)	; &g2-MJ007279;
 	(==ucs@JP/hanazono  . nil)
 	(==mj		    . 007279)	; &g2-MJ007279;
@@ -942,7 +954,6 @@
 (define-char
   '((<-denotational
      ((=>ucs@iwds-1	  . #x516E)	; &A-IWDSU+516E;
-      (=>ucs@iwds-1/normalized . #x516E)	; &A-IWDSU+516E;
       ))
     (ideographic-radical@ucs . 12)	; ⼋
     (ideographic-strokes@ucs . 2)
@@ -7829,6 +7840,22 @@
     (=>ucs@component	. #x516C)	; &A-compU+516C;
     ))
 (define-char
+  '((<-denotational@component
+     ((=>ucs@iwds-1	  . #x20012)	; &A-IWDSU+20012;
+      ))
+    (ideographic-radical . 12)	; ⼋
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@iwds-1	  . #x4E38)	; &A-IWDSU+4E38;
+      (=>iwds-1		  .  65535)	; &A-IWDSU+4E38;
+      )
+     ((=ucs		  . #x4E02)	; 丂
+      ))
+    (=>ucs@iwds-1	. #x2009E)	; &A-IWDSU+2009E;
+    ))
+(define-char
   '((ideographic-radical . 12)	; ⼋
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")