From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 12 Jan 2022 15:04:25 +0000 (+0900)
Subject: (U-0002CEC0): Apply new conventions for glyph granularity.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7f04c5b72cede8da2c36bd06ce3e3952521a8726;p=chise%2Fxemacs-chise.git

(U-0002CEC0): Apply new conventions for glyph granularity.
(CB07087): New character; use `<-denotational' for U-0002CEC0.
---

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index c4100aa..df2b63f 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -5715,16 +5715,53 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((name		  . "KATAKANA LETTER SA")
-      (=ucs		  . #x30B5)	; サ
+     ((=ucs		  . #x8279)	; 艹
       )
      ((name		  . "KATAKANA LETTER SA")
       (=ucs		  . #x30B5)	; サ
       ))
     (sound@ja/kun	"bosatu")
     (=ucs		. #x2CEC0)	; 𬻀
-    (=mj		. 046311)	; &I-MJ046311;
-    (=koseki		. 000680)	; 𬻀
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2CEC0)	; 𬻀
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 5)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((name		  . "CJK RADICAL GRASS ONE")
+      (=ucs		  . #x2EBE)	; ⺾
+      )
+     ((name		  . "KATAKANA LETTER SA")
+      (=ucs		  . #x30B5)	; サ
+      ))
+    (=cbeta		. 07087)	; &CB07087;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2CEC0)	; 𬻀
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 5)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((name		  . "KATAKANA LETTER SA")
+      (=ucs		  . #x30B5)	; サ
+      )
+     ((name		  . "KATAKANA LETTER SA")
+      (=ucs		  . #x30B5)	; サ
+      ))
+    (=ucs@JP/hanazono	. #x2CEC0)	; &MJ046311;
+    (=mj		. 046311)	; &MJ046311;
+    (=koseki		. 000680)	; &MJ046311;
     (<-same
      ((=ucs@iso		  . #x26B20)	; &C6-274C;
       (=cns11643-6	  . #x274C)	; &C6-274C; [07-44]
@@ -5741,6 +5778,9 @@
      ((==ucs@JP/hanazono  . #x2CEC0)	; &g2-MJ046311;
       (==mj		  . 046311)	; &g2-MJ046311;
       (==koseki		  . 000680)	; &g2-MJ046311;
+      (->subsumptive
+       ((===mj		    . 046311)	; &R-MJ046311;
+	))
       ))
     ))
 (define-char