From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 22 Sep 2024 19:29:46 +0000 (+0900)
Subject: (A-IWDSU+20041): New abstract node; unify IWDS1-0161.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e33ffc1ec07f1aea492f24fa90e72d44bc2d7658;p=chise%2Fxemacs-chise.git

(A-IWDSU+20041): New abstract node; unify IWDS1-0161.
(U-00020041): Add `<-denotational' for A-IWDSU+20041.
(MJ056846): Unify U-0002CEDE; use A-IWDSU+20041 instead of U-00020041
as its mother.
---

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index 9bacde0..ba73fc7 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -9373,7 +9373,16 @@
       ))
     ))
 (define-char
-  '((<-denotational@usage
+  '((ideographic-radical . 1)	; ⼀
+    (=>ucs@iwds-1	. #x20041)	; &A-IWDSU+20041;
+    (=>iwds-1		.  0161)	; &A-IWDSU+20041;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x20041)	; &A-IWDSU+20041;
+      (=>iwds-1		  .  0161)	; &A-IWDSU+20041;
+      ))
+    (<-denotational@usage
      ((==>daijiten	  . 00042)	; &A2-DJT-00042;
       ))
     (ideographic-radical . 1)	; ⼀
@@ -9437,33 +9446,6 @@
     (ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 10)
     (total-strokes	 . 11)
-    (=mj		. 056846)	; &MJ056846;
-    (=hanyo-denshi/ks	. 001000)	; &MJ056846;
-    (<-formed
-     ((=ucs@iso		  . #x20041)	; &GT-00094;
-      (=cns11643-5	  . #x3072)	; &GT-00094; [16-82]
-      (=daikanwa	  . 00063)	; &I-M-00063;
-      ))
-    (<-formed*sources
-     koseki)
-    (->subsumptive
-     ((==mj		  . 056846)	; &g2-MJ056846;
-      (==hanyo-denshi/ks  . 001000)	; &g2-MJ056846;
-      (->subsumptive
-       ((===hanyo-denshi/ks . 001000)	; &R-HD-KS-001000;
-	(=hanyo-denshi/ks/mf . #x0064)	; &R-HD-KS-001000;
-	)
-       ((===mj		    . 056846)	; &R-MJ056846;
-	))
-      ))
-    ))
-(define-char
-  '((<-denotational
-     ((=ucs		  . #x20041)	; 𠁁
-      ))
-    (ideographic-radical . 1)	; ⼀
-    (ideographic-strokes . 10)
-    (total-strokes	 . 11)
     (=big5-cdp		. #x8A41)	; &CDP-8A41;
     (->subsumptive
      ((==big5-cdp	  . #x8A41)	; &g2-CDP-8A41;
@@ -9517,6 +9499,40 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x20041)	; &A-IWDSU+20041;
+      (=>iwds-1		  .  0161)	; &A-IWDSU+20041;
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes@ucs . 9)
+    (total-strokes@ucs	     . 10)
+    (ideographic-strokes@mj . 10)
+    (total-strokes@mj	    . 11)
+    (=ucs		. #x2CEDE)	; 𬻞
+    (=mj		. 056846)	; &I-MJ056846;
+    (=hanyo-denshi/ks	. 001000)	; 𬻞
+    (<-formed
+     ((=ucs@iso		  . #x20041)	; &GT-00094;
+      (=cns11643-5	  . #x3072)	; &GT-00094; [16-82]
+      (=daikanwa	  . 00063)	; &I-M-00063;
+      ))
+    (<-formed$_1*sources
+     koseki)
+    (<-formed*sources
+     koseki)
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x2CEDE)	; &g2-MJ056846;
+      (==mj		  . 056846)	; &g2-MJ056846;
+      (==hanyo-denshi/ks  . 001000)	; &g2-MJ056846;
+      (->subsumptive
+       ((===hanyo-denshi/ks . 001000)	; &R-HD-KS-001000;
+	(=hanyo-denshi/ks/mf . #x0064)	; &R-HD-KS-001000;
+	)
+       ((===mj		    . 056846)	; &R-MJ056846;
+	))
+      ))
+    ))
+(define-char
   '((ideographic-radical@ucs . 1)	; ⼀
     (ideographic-strokes@ucs . 10)
     (ideographic-radical@cns . 75)	; ⽊