From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 24 Feb 2023 10:00:37 +0000 (+0900)
Subject: (U+5182): Apply new conventions for glyph granularity.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c4a3f7d3d1b44f9980048d48be4e223a7bc66e9d;p=chise%2Fxemacs-chise.git

(U+5182): Apply new conventions for glyph granularity.
(BC-8BF2): Copied from u02E00-CJK-Radical-Supplement.el; use
`<-denotational' for U+5182 instead of `=>ucs' for U+2E86.
---

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index 37fec10..c832b52 100644
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -28,35 +28,46 @@
     (=daikanwa		. 01506)	; &I-M-01506;
     (=daijiten		. 00619)	; &I-DJT-00619;
     (->subsumptive
-     ((==ucs@unicode	  . #x5182)	; &g2-AJ1-04219;
-      (==adobe-japan1-0	  . 04219)	; &g2-AJ1-04219;
-      (==gb2312		  . #x5867)	; &g2-AJ1-04219; [56-71]
-      (==jis-x0208	  . #x5144)	; &g2-AJ1-04219; [49-36]
-      (==cns11643-3	  . #x2127)	; &g2-AJ1-04219; [01-07]
-      (==jis-x0213-1	  . #x5144)	; &g2-AJ1-04219; [49-36]
-      (==big5-cdp	  . #x8B46)	; &g2-AJ1-04219;
-      (==gt		  . 01975)	; &g2-AJ1-04219;
-      (==gt-k		  . 00078)	; &g2-AJ1-04219;
-      (==daikanwa	  . 01506)	; &g2-AJ1-04219;
-      (==daijiten	  . 00619)	; &g2-AJ1-04219;
+     ((=>>ucs@unicode	  . #x5182)	; &G-AJ1-04219;
+      (=>>adobe-japan1-0  . 04219)	; &G-AJ1-04219;
+      (=>>jis-x0208	  . #x5144)	; &G-AJ1-04219; [49-36]
+      (=>>cns11643-3	  . #x2127)	; &G-AJ1-04219; [01-07]
+      (=>>jis-x0213-1	  . #x5144)	; &G-AJ1-04219; [49-36]
+      (=>>big5-cdp	  . #x8B46)	; &G-AJ1-04219;
+      (=>>gt		  . 01975)	; &G-AJ1-04219;
+      (=>>gt-k		  . 00078)	; &G-AJ1-04219;
+      (=>>daikanwa	  . 01506)	; &G-AJ1-04219;
       (->subsumptive
-       ((===daikanwa	    . 01506)	; &R-M-01506;
-	)
-       ((===daijiten	    . 00619)	; &R-DJT-00619;
-	)
-       ((===jis-x0208	    . #x5144)	; &R-J0-5144; [49-36]
-	(===jis-x0213-1	    . #x5144)	; &R-J0-5144; [49-36]
-	)
-       ((===adobe-japan1-0  . 04219)	; &R-AJ1-04219;
-	)
-       ((===big5-cdp	    . #x8B46)	; &R-CDP-8B46;
-	)
-       ((===cns11643-3	    . #x2127)	; &R-C3-2127; [01-07]
-	)
-       ((===gt		    . 01975)	; &R-GT-01975;
-	(===gt-k	    . 00078)	; &R-GT-01975;
-	)
-       ((===ucs@unicode	    . #x5182)	; &R-UU+5182;
+       ((==ucs@unicode	    . #x5182)	; &g2-AJ1-04219;
+	(==adobe-japan1-0   . 04219)	; &g2-AJ1-04219;
+	(==gb2312	    . #x5867)	; &g2-AJ1-04219; [56-71]
+	(==jis-x0208	    . #x5144)	; &g2-AJ1-04219; [49-36]
+	(==cns11643-3	    . #x2127)	; &g2-AJ1-04219; [01-07]
+	(==jis-x0213-1	    . #x5144)	; &g2-AJ1-04219; [49-36]
+	(==big5-cdp	    . #x8B46)	; &g2-AJ1-04219;
+	(==gt		    . 01975)	; &g2-AJ1-04219;
+	(==gt-k		    . 00078)	; &g2-AJ1-04219;
+	(==daikanwa	    . 01506)	; &g2-AJ1-04219;
+	(==daijiten	    . 00619)	; &g2-AJ1-04219;
+	(->subsumptive
+	 ((===daikanwa	      . 01506)	; &R-M-01506;
+	  )
+	 ((===daijiten	      . 00619)	; &R-DJT-00619;
+	  )
+	 ((===jis-x0208	      . #x5144)	; &R-J0-5144; [49-36]
+	  (===jis-x0213-1     . #x5144)	; &R-J0-5144; [49-36]
+	  )
+	 ((===adobe-japan1-0  . 04219)	; &R-AJ1-04219;
+	  )
+	 ((===big5-cdp	      . #x8B46)	; &R-CDP-8B46;
+	  )
+	 ((===cns11643-3      . #x2127)	; &R-C3-2127; [01-07]
+	  )
+	 ((===gt	      . 01975)	; &R-GT-01975;
+	  (===gt-k	      . 00078)	; &R-GT-01975;
+	  )
+	 ((===ucs@unicode     . #x5182)	; &R-UU+5182;
+	  ))
 	))
       ))
     ))
@@ -87,6 +98,29 @@
     (<-formed@component
      ((=ucs		  . #x5182)	; 冂
       ))
+    (->subsumptive
+     ((==big5-cdp	  . #x8BC0)	; &g2-CDP-8BC0;
+      )
+     ((==gt-k		  . 00079)	; &g2-GT-K00079;
+      (==gt-pj-k1	  . #x3D6D)	; &g2-GT-K00079; [29-77]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5182)	; 冂
+      ))
+    (ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 0)
+    (total-strokes	 . 2)
+    (=big5-cdp		. #x8BF2)	; &CDP-8BF2;
+    (=gt-k		. 00143)	; &I-GT-K00143;
+    (=gt-pj-k1		. #x3D6C)	; &CDP-8BF2; [29-76]
+    (->subsumptive
+     ((==big5-cdp	  . #x8BF2)	; &g2-CDP-8BF2;
+      )
+     ((==gt-k		  . 00143)	; &g2-GT-K00143;
+      (==gt-pj-k1	  . #x3D6C)	; &g2-GT-K00143; [29-76]
+      ))
     ))
 (define-char
   '((<-denotational@component