From 7f04c5b72cede8da2c36bd06ce3e3952521a8726 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 13 Jan 2022 00:04:25 +0900
Subject: [PATCH] (U-0002CEC0): Apply new conventions for glyph granularity.
 (CB07087): New character; use `<-denotational' for
 U-0002CEC0.

---
 lisp/utf-2000/Ideograph-R001-One.el |   48 ++++++++++++++++++++++++++++++++---
 1 file changed, 44 insertions(+), 4 deletions(-)

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
-- 
1.7.10.4