From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 22 Jun 2022 03:29:20 +0000 (+0900)
Subject: (GT-00202): Add `<-denotational' for U-0002D020; unify MJ056970,
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=be665b8efedf1e0e1f71d7aabd141ed6c5157bcc;p=chise%2Fxemacs-chise.git

(GT-00202): Add `<-denotational' for U-0002D020; unify MJ056970,
KOSEKI-015880 and CHISE-HDIC-TSJ-55A7.
---

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index 2b5205a..d1bcfdf 100644
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -4848,6 +4848,60 @@
     ))
 (define-char
   '((<-denotational
+     ((=ucs		  . #x2D020)	; 𭀠
+      ))
+    (ideographic-radical@ucs . 10)	; ⼉
+    (ideographic-strokes@ucs . 5)
+    (ideographic-radical@ucs*sources
+     koseki mj)
+    (ideographic-strokes@ucs*sources
+     koseki mj)
+    (ideographic-radical@gt . 4)	; ⼃
+    (ideographic-strokes@gt . 6)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((name*		  . "ideographic component person for top")
+      (=ucs		  . #x20089)	; 𠂉
+      )
+     ((=big5-cdp	  . #x89B9)	; &CDP-89B9;
+      ))
+    (=mj		. 056970)	; &MJ056970;
+    (=koseki		. 015880)	; &MJ056970;
+    (=gt		. 00202)	; &I-GT-00202;
+    (=gt-pj-11		. #x4A7B)	; &I-GT-00202; [42-91]
+    (=chise-hdic-tsj	. #x55A7)	; &MJ056970;
+    (<-formed
+     ((=ucs@cns		  . #x2F80E)	; &MJ030246;
+      (=ucs@jis		  . #xFA32)	; &MJ030246;
+      (=mj		  . 030246)	; &MJ030246;
+      )
+     ((=ucs@jis		  . #x514D)	; &MJ007230;
+      (=mj		  . 007230)	; &MJ007230;
+      ))
+    (<-formed$_1*sources
+     mj)
+    (<-formed$_2*sources
+     mj)
+    (<-formed*sources
+     mj)
+    (->subsumptive
+     ((==mj		  . 056970)	; &g2-MJ056970;
+      (==koseki		  . 015880)	; &g2-MJ056970;
+      (==gt		  . 00202)	; &g2-MJ056970;
+      (->subsumptive
+       ((===mj		    . 056970)	; &R-MJ056970;
+	)
+       ((===gt		    . 00202)	; &R-GT-00202;
+	))
+      )
+     ((===chise-hdic-tsj  . #x55A7)	; &R-CHISE-HDIC-TSJ55A7;
+      ))
+    ))
+(define-char
+  '((<-denotational
      ((=>big5-cdp	  . #x85E4)	; &A-CDP-85E4;
       ))
     (ideographic-radical . 4)	; ⼃
@@ -4915,13 +4969,6 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 4)	; ⼃
-    (ideographic-strokes . 6)
-    (total-strokes	 . 7)
-    (=gt		. 00202)	; &GT-00202;
-    (=gt-pj-11		. #x4A7B)	; &GT-00202; [42-91]
-    ))
-(define-char
   '((<-denotational
      ((=>ucs-itaiji-001	  . #x200A1)	; &A-U-i001+200A1;
       ))