From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 13 Dec 2019 06:21:07 +0000 (+0900)
Subject: (U+52CB): Apply new conventions for glyph granularity; use
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aca17be82371824b86dbbcece0aba543562fca14;p=chise%2Fxemacs-chise.git

(U+52CB): Apply new conventions for glyph granularity; use
`<-denotational@usage' instead of `<-denotational' for BUCS+52F3.
(U-0002D127): New character; use `<-denotational' for A-cgnU+5937.
(U+52DB): Use `<-denotational@usage' instead of `<-denotational' for
BUCS+52F3.
---

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 2be7c75..f2d08e9 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -3667,6 +3667,56 @@
     (=daikanwa		. 48944)	; &I-M-48944;
     ))
 (define-char
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x52F3)	; &BUCS+52F3;
+      ))
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5458)	; 员
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (=ucs		. #x52CB)	; 勋
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x52CB)	; 勋
+      ))
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (hanyu-dazidian	1 371 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs@unicode	  . #x5458)	; &G0-5431;
+      (=gb2312		  . #x5431)	; &G0-5431; [52-17]
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (=ucs@unicode	. #x52CB)	; &G0-512B;
+    (=gb2312		. #x512B)	; &G0-512B; [49-11]
+    (<-simplified@CN
+     ((=ucs		  . #x52DB)	; 勛
+      (=gb12345		  . #x512B)	; 勛 [49-11]
+      ))
+    (->subsumptive
+     ((==ucs@unicode	  . #x52CB)	; &g2-UU+52CB;
+      (==gb2312		  . #x512B)	; &g2-UU+52CB; [49-11]
+      (->subsumptive
+       ((===ucs@unicode	    . #x52CB)	; &R-UU+52CB;
+	)
+       ((=hanziku-1	    . #xF267)	; &HZK01-F267;
+	))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
@@ -3691,6 +3741,30 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@cognate	  . #x5937)	; &A-cgnU+5937;
+      ))
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (=ucs		. #x2D127)	; 𭄧
+    (=mj		. 057069)	; &I-MJ057069;
+    (=koseki		. 027490)	; 𭄧
+    (<-formed
+     ((=ucs		  . #x5937)	; 夷
+      ))
+    (<-formed$_1*sources
+     koseki mj)
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x2D127)	; &g2-MJ057069;
+      (==mj		  . 057069)	; &g2-MJ057069;
+      (==koseki		  . 027490)	; &g2-MJ057069;
+      (->subsumptive
+       ((===mj		    . 057069)	; &R-MJ057069;
+	))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
@@ -5437,11 +5511,7 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 19)	; ⼒
-    (==>ucs@bucs	. #x52F3)	; &BUCS+52F3;
-    ))
-(define-char
-  '((<-denotational
+  '((<-denotational@usage
      ((==>ucs@bucs	  . #x52F3)	; &BUCS+52F3;
       ))
     (ideographic-radical . 19)	; ⼒
@@ -5510,30 +5580,6 @@
       ))
     ))
 (define-char
-  '((<-denotational
-     ((==>ucs@bucs	  . #x52F3)	; &BUCS+52F3;
-      ))
-    (ideographic-radical . 19)	; ⼒
-    (ideographic-strokes . 7)
-    (total-strokes	 . 9)
-    (hanyu-dazidian	1 371 6)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=ucs		  . #x5458)	; 员
-      )
-     ((=ucs		  . #x529B)	; 力
-      ))
-    (=ucs		. #x52CB)	; 勋
-    (=gb2312		. #x512B)	; &I-G0-512B; [49-11]
-    (=hanziku-1		. #xF267)	; &I-HZK01-F267;
-    (<-simplified@CN
-     ((=ucs		  . #x52DB)	; 勛
-      (=gb12345		  . #x512B)	; 勛 [49-11]
-      ))
-    ))
-(define-char
   '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
@@ -9540,3 +9586,7 @@
   '((ideographic-radical . 19)	; ⼒
     (==>ucs@bucs	. #x52D5)	; &BUCS+52D5;
     ))
+(define-char
+  '((ideographic-radical . 19)	; ⼒
+    (==>ucs@bucs	. #x52F3)	; &BUCS+52F3;
+    ))