From 1bc4e4ad9c2480b1dea8fa207e63b0c8dd67848d Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 30 Nov 2022 01:55:30 +0900
Subject: [PATCH] (U+3AAF): Add `<-denotational@usage' for BUCS+64E7; apply
 new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R067-Script.el |   70 +++++++++++++++++++++++++++++---
 1 file changed, 65 insertions(+), 5 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R067-Script.el b/lisp/utf-2000/Ideograph-R067-Script.el
index a24b6f6..771ed90 100644
--- a/lisp/utf-2000/Ideograph-R067-Script.el
+++ b/lisp/utf-2000/Ideograph-R067-Script.el
@@ -226,15 +226,75 @@
     (=ucs@iso		. #x23041)	; &U-00023041;
     ))
 (define-char
-  '((ideographic-radical . 67)	; ⽂
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x64E7)	; &BUCS+64E7;
+      ))
+    (ideographic-radical . 67)	; ⽂
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x6587)	; 文
+      )
+     ((=ucs		  . #x20006)	; 𠀆
+      ))
+    (sound@ja/on	"kyo")
+    (=ucs		. #x3AAF)	; 㪯
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x3AAF)	; 㪯
+      ))
+    (ideographic-radical . 67)	; ⽂
     (ideographic-strokes . 3)
     (total-strokes	 . 7)
-    (=ucs		. #x3AAF)	; 㪯
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x6587)	; 文
+      )
+     ((=ucs		  . #x30001)	; 𰀁
+      ))
+    (=ucs@unicode	. #x3AAF)	; &MJ001546;
+    (=mj		. 001546)	; &MJ001546;
+    (=cns11643-3	. #x263B)	; &I-C3-263B; [06-27]
+    (=koseki		. 150890)	; &MJ001546;
+    (=daikanwa		. 13452)	; &I-M-13452;
+    (<-formed
+     ((=ucs@unicode	  . #x64E7)	; &AJ1-05038;
+      (=adobe-japan1-0	  . 05038)	; &AJ1-05038;
+      )
+     ((=ucs@unicode	  . #x6319)	; &AJ1-01677;
+      (=adobe-japan1-0	  . 01677)	; &AJ1-01677;
+      ))
+    (<-formed$_1*sources
+     koseki mj)
+    (<-formed$_2*sources
+     koseki@mj)
+    (<-formed*sources
+     koseki mj)
+    (<-vulgar
+     ((=ucs@unicode	  . #x64E7)	; &AJ1-05038;
+      (=adobe-japan1-0	  . 05038)	; &AJ1-05038;
+      (=daikanwa	  . 12863)	; &I-M-12863;
+      ))
+    (<-vulgar*sources
+     pianhai daikanwa)
     (->subsumptive
-     ((=daikanwa	  . 13452)	; &M-13452;
+     ((==koseki		  . 150890)	; &g2-M-13452;
+      (==daikanwa	  . 13452)	; &g2-M-13452;
       )
-     ((=ucs@unicode	  . #x3AAF)	; &C3-263B;
-      (=cns11643-3	  . #x263B)	; &C3-263B; [06-27]
+     ((==ucs@unicode	  . #x3AAF)	; &g2-MJ001546;
+      (==mj		  . 001546)	; &g2-MJ001546;
+      (==cns11643-3	  . #x263B)	; &g2-MJ001546; [06-27]
+      (->subsumptive
+       ((===mj		    . 001546)	; &R-MJ001546;
+	)
+       ((===cns11643-3	    . #x263B)	; &R-C3-263B; [06-27]
+	)
+       ((===ucs@unicode	    . #x3AAF)	; &R-UU+3AAF;
+	))
       ))
     ))
 (define-char
-- 
1.7.10.4