From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 31 Oct 2024 15:47:20 +0000 (+0900)
Subject: (U+54A7): Add `<-denotational@usage' for BUCS+54A7; apply new
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8148fc6e7d45db22bfdea2e5648144ea69b4b46d;p=chise%2Fxemacs-chise.git

(U+54A7): Add `<-denotational@usage' for BUCS+54A7; apply new
conventions for glyph granularity.
(BUCS+54A7): New abstract node.
---

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 85db601..9b639a6 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -20216,7 +20216,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 30)	; ⼝
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x54A7)	; &BUCS+54A7;
+      ))
+    (ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
     (ideographic-structure
@@ -20227,8 +20230,28 @@
       )
      ((=ucs		  . #x5217)	; 列
       ))
+    (sound@ja/on/go	"reti")
+    (sound@ja/on/kan	"retu")
     (=ucs		. #x54A7)	; 咧
-    (=adobe-japan1-5	. 19226)	; &I-AJ1-19226;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x54A7)	; 咧
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 6)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x53E3)	; 口
+      )
+     ((=ucs@unicode	  . #x5217)	; &AJ1-04027;
+      (=adobe-japan1-0	  . 04027)	; &AJ1-04027;
+      ))
+    (=ucs@unicode	. #x54A7)	; &AJ1-19226;
+    (=adobe-japan1-5	. 19226)	; &AJ1-19226;
     (=gb2312		. #x5F56)	; &I-G0-5F56; [63-54]
     (=jis-x0212		. #x352E)	; &I-JSP-352E; [21-14]
     (=cns11643-1	. #x504A)	; &I-C1-504A; [48-42]
@@ -50129,7 +50152,7 @@
       )
      ((=ucs		  . #x53E3)	; 口
       )
-     ((=gt-k		  . 05805)	; &GT-K05805;
+     ((=ucs		  . #x3157B)	; 𱕻
       ))
     (sound@ja/on	"ki")
     (=ucs		. #x20DDD)	; 𠷝
@@ -99947,6 +99970,10 @@
     ))
 (define-char
   '((ideographic-radical . 30)	; ⼝
+    (==>ucs@bucs	. #x54A7)	; &BUCS+54A7;
+    ))
+(define-char
+  '((ideographic-radical . 30)	; ⼝
     (==>ucs@bucs	. #x54AC)	; &BUCS+54AC;
     (==>daijiten	. 01280)	; &BUCS+54AC;
     ))