From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 29 Jul 2024 15:12:33 +0000 (+0900)
Subject: (U-000201A9): Apply new conventions for glyph granularity.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=30f4e7047bad9a0a87b4c35ace358459588c44ae;p=chise%2Fxemacs-chise.git

(U-000201A9): Apply new conventions for glyph granularity.
(U+201A9-itaiji-001): New character; use `<-denotational' for
U-000201A9.
(IWDS1-0384): Omit `<-denotational@usage' for BUCS+516A.
(U+4FDE): Add `<-denotational@usage' for BUCS+516A.
(BUCS+516A): Unify A2-DJT-00593.
---

diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index aab86a6..3c98068 100644
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -4125,21 +4125,40 @@
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 3)
     (total-strokes	 . 5)
-    (hanyu-dazidian	1 114 11)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
       )
      ((=ucs		  . #x4EBB)	; 亻
       )
-     ((=ucs		  . #x51E1)	; 凡
+     ((=>ucs@iwds-1	  . #x5342)	; &A-IWDSU+5342;
+      (=>iwds-1		  .  0055)	; &A-IWDSU+5342;
       ))
     (sound@ja/on/go	"boN")
     (sound@ja/on/kan	"haN")
     (=ucs		. #x201A9)	; 𠆩
-    (=mj		. 030536)	; &I-MJ030536;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x201A9)	; 𠆩
+      ))
+    (ideographic-radical . 9)	; ⼈
+    (ideographic-strokes . 3)
+    (total-strokes	 . 5)
+    (hanyu-dazidian	1 114 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x4EBB)	; 亻
+      )
+     ((=ucs@unicode	  . #x51E1)	; &AJ1-03724;
+      (=adobe-japan1-0	  . 03724)	; &AJ1-03724;
+      ))
+    (=ucs@iso		. #x201A9)	; &MJ030536;
+    (=mj		. 030536)	; &MJ030536;
     (=cns11643-3	. #x216F)	; &I-C3-216F; [01-79]
-    (=koseki		. 004690)	; 𠆩
+    (=koseki		. 004690)	; &MJ030536;
     (=daikanwa		. 00384)	; &I-M-00384;
     (=cbeta		. 04990)	; &I-CB04990;
     (->subsumptive
@@ -4165,6 +4184,23 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x201A9)	; 𠆩
+      ))
+    (ideographic-radical . 9)	; ⼈
+    (ideographic-strokes . 3)
+    (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x4EBB)	; 亻
+      )
+     ((=big5-cdp	  . #x88EC)	; &CDP-88EC;
+      ))
+    (=ucs-itaiji-001	. #x201A9)	; &U-i001+201A9;
+    ))
+(define-char
   '((ideographic-radical . 9)	; ⼈
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -32077,10 +32113,7 @@
       ))
     ))
 (define-char
-  '((<-denotational@usage
-     ((==>ucs@bucs	  . #x516A)	; &BUCS+516A;
-      ))
-    (ideographic-radical@r009 . 9)	; ⼈
+  '((ideographic-radical@r009 . 9)	; ⼈
     (ideographic-radical@r011 . 11)	; ⼊
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
@@ -32092,6 +32125,9 @@
   '((<-denotational
      ((=>jis-x0208	  . #x5141)	; &J97-5141; [49-33]
       ))
+    (<-denotational@usage
+     ((==>ucs@bucs	  . #x516A)	; &BUCS+516A;
+      ))
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
@@ -92271,6 +92307,7 @@
   '((ideographic-radical@r009 . 9)	; ⼈
     (ideographic-radical@r011 . 11)	; ⼊
     (==>ucs@bucs	. #x516A)	; &BUCS+516A;
+    (==>daijiten	. 00593)	; &BUCS+516A;
     ))
 (define-char
   '((ideographic-radical . 9)	; ⼈