From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 22 Jun 2023 09:27:32 +0000 (+0900)
Subject: (G-JPU+2B755): New glyph node to subsume g2-hanaJU+2B755; use
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1b61f2b9e7d5f8427242de74ce2d51f0f9e2692d;p=chise%2Fxemacs-chise.git

(G-JPU+2B755): New glyph node to subsume g2-hanaJU+2B755; use
`<-subsumptive' for hanaJU+2B755.
(U+2B755-itaiji-002): New character; use `<-subsumptive' for
hanaJU+2B755.
---

diff --git a/lisp/utf-2000/Ideograph-R027-Cliff.el b/lisp/utf-2000/Ideograph-R027-Cliff.el
index f2fd1fe..ea15ed6 100644
--- a/lisp/utf-2000/Ideograph-R027-Cliff.el
+++ b/lisp/utf-2000/Ideograph-R027-Cliff.el
@@ -1886,12 +1886,26 @@
     (<-formed*sources
      koseki mj)
     (->subsumptive
-     ((==ucs@JP/hanazono  . #x2B755)	; &g2-MJ058834;
-      (==mj		  . 058834)	; &g2-MJ058834;
-      (==koseki		  . 437390)	; &g2-MJ058834;
+     ((=>>ucs@JP	  . #x2B755)	; &G-MJ058834;
+      (=>>mj		  . 058834)	; &G-MJ058834;
       (->subsumptive
-       ((===mj		    . 058834)	; &R-MJ058834;
+       ((==ucs@JP/hanazono  . #x2B755)	; &g2-MJ058834;
+	(==mj		    . 058834)	; &g2-MJ058834;
+	(==koseki	    . 437390)	; &g2-MJ058834;
+	(->subsumptive
+	 ((===mj	      . 058834)	; &R-MJ058834;
+	  ))
+	))
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+	(=ucs		    . #x2FF8)	; ⿸
+	)
+       ((=ucs		    . #x5382)	; 厂
+	)
+       ((=big5-cdp-itaiji-004 . #x8851)	; &CDP-i004-8851;
 	))
+      (=ucs-itaiji-002	  . #x2B755)	; &U-i002+2B755;
       ))
     ))
 (define-char