From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 28 Apr 2024 04:18:38 +0000 (+0900)
Subject: (U-0002D19C): Apply new conventions for glyph granularity.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=31546ad7fd7fc67c0a3d086cec4cda369d7a0731;p=chise%2Fxemacs-chise.git

(U-0002D19C): Apply new conventions for glyph granularity.
(A-U+20DAC-itaiji-002): New abstract node.
(U+20DAC-itaiji-002): New character; use `<-denotational' for
A-U+20DAC-itaiji-002.
---

diff --git a/lisp/utf-2000/Ideograph-R028-Private.el b/lisp/utf-2000/Ideograph-R028-Private.el
index d284282..402cbad 100644
--- a/lisp/utf-2000/Ideograph-R028-Private.el
+++ b/lisp/utf-2000/Ideograph-R028-Private.el
@@ -2222,8 +2222,73 @@
 (define-char
   '((ideographic-radical . 28)	; ⼛
     (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x593E)	; &A-compU+593E;
+      (=>iwds-1		  .  0147)	; &A-compU+593E;
+      )
+     ((=ucs		  . #x53B6)	; 厶
+      ))
     (=ucs		. #x2D19C)	; 𭆜
-    (=cbeta		. 07259)	; &I-CB07259;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2D19C)	; 𭆜
+      ))
+    (ideographic-radical . 28)	; ⼛
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x593E)	; 夾
+      )
+     ((=ucs		  . #x53B6)	; 厶
+      ))
+    (=ucs@JP/hanazono	. #x2D19C)	; &CB07259;
+    (=cbeta		. 07259)	; &CB07259;
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x2D19C)	; &g2-CB07259;
+      (==cbeta		  . 07259)	; &g2-CB07259;
+      (->subsumptive
+       ((===cbeta	    . 07259)	; &R-CB07259;
+	))
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 28)	; ⼛
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x53B8)	; 厸
+      )
+     ((=>ucs@component	  . #x2000E)	; &A-compU+2000E;
+      ))
+    (=>ucs-itaiji-002	. #x20DAC)	; &A-U-i002+20DAC;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-002	  . #x20DAC)	; &A-U-i002+20DAC;
+      ))
+    (ideographic-radical . 28)	; ⼛
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x53B8)	; 厸
+      )
+     ((=ucs		  . #x2000E)	; 𠀎
+      ))
+    (=ucs-itaiji-002	. #x20DAC)	; &U-i002+20DAC;
     ))
 (define-char
   '((<-denotational