From 8d12f25f450d56d5ff06bdee81602732f976dd36 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 5 Sep 2024 09:49:09 +0900
Subject: [PATCH] (U+5CE9): Add `<-denotational@usage' for BUCS+5CE8; apply
 new conventions for glyph granularity. (U+5DAD): Add
 `<-denotational@usage' for A2-DJT-02727. (UU+5DAD): Unify
 DJT-02727. (BUCS+5CE8): New abstract character; unify
 A2-DJT-02583. (A2-DJT-02727): New abstract character.

---
 lisp/utf-2000/Ideograph-R046-Mountain.el |   81 +++++++++++++++++++++++++++---
 1 file changed, 75 insertions(+), 6 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R046-Mountain.el b/lisp/utf-2000/Ideograph-R046-Mountain.el
index eda6c28..28c3c75 100644
--- a/lisp/utf-2000/Ideograph-R046-Mountain.el
+++ b/lisp/utf-2000/Ideograph-R046-Mountain.el
@@ -8449,26 +8449,48 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 46)	; â¼­
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x5CE8)	; &BUCS+5CE8;
+      ))
+    (ideographic-radical . 46)	; â¼­
     (ideographic-strokes . 7)
     (total-strokes	 . 10)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #x5C71)	; å±±
+     ((=>ucs@component	  . #x5C6E)	; &A-compU+5C6E;
+      (=>iwds-1		  .  0096)	; &A-compU+5C6E;
       )
      ((=ucs		  . #x6211)	; 我
       ))
     (=ucs		. #x5CE9)	; 峩
-    (=adobe-japan1-0	. 04675)	; &I-AJ1-04675;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5CE9)	; 峩
+      ))
+    (ideographic-radical . 46)	; â¼­
+    (ideographic-strokes . 7)
+    (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5C71)	; å±±
+      )
+     ((=ucs		  . #x6211)	; 我
+      ))
+    (=ucs@unicode	. #x5CE9)	; &AJ1-04675;
+    (=adobe-japan1-0	. 04675)	; &AJ1-04675;
     (=jis-x0208		. #x5636)	; &I-J90-5636; [54-22]
     (=cns11643-3	. #x3063)	; &I-C3-3063; [16-67]
     (=jis-x0213-1	. #x5636)	; &I-JX1-5636; [54-22]
     (=gt		. 10162)	; &I-GT-10162;
     (=gt-pj-1		. #x5636)	; &I-GT-10162; [54-22]
     (=daikanwa		. 08072)	; &I-M-08072;
-    (=shinjigen		.  1982)	; 峩
+    (=daijiten		. 02582)	; &I-DJT-02582;
+    (=shinjigen		.  1982)	; &AJ1-04675;
     (=cbeta		. 00777)	; &I-CB00777;
     (<-formed
      ((=ucs		  . #x5CE8)	; 峨
@@ -8477,6 +8499,36 @@
       ))
     (<-formed*sources
      shinjigen)
+    (->subsumptive
+     ((==ucs@unicode	  . #x5CE9)	; &g2-AJ1-04675;
+      (==adobe-japan1-0	  . 04675)	; &g2-AJ1-04675;
+      (==jis-x0208	  . #x5636)	; &g2-AJ1-04675; [54-22]
+      (==cns11643-3	  . #x3063)	; &g2-AJ1-04675; [16-67]
+      (==jis-x0213-1	  . #x5636)	; &g2-AJ1-04675; [54-22]
+      (==gt		  . 10162)	; &g2-AJ1-04675;
+      (==daikanwa	  . 08072)	; &g2-AJ1-04675;
+      (==daijiten	  . 02582)	; &g2-AJ1-04675;
+      (==shinjigen	  .  1982)	; &g2-AJ1-04675;
+      (==cbeta		  . 00777)	; &g2-AJ1-04675;
+      (->subsumptive
+       ((===daikanwa	    . 08072)	; &R-M-08072;
+	)
+       ((===daijiten	    . 02582)	; &R-DJT-02582;
+	)
+       ((===jis-x0208	    . #x5636)	; &R-J0-5636; [54-22]
+	(===jis-x0213-1	    . #x5636)	; &R-J0-5636; [54-22]
+	)
+       ((===adobe-japan1-0  . 04675)	; &R-AJ1-04675;
+	)
+       ((===cns11643-3	    . #x3063)	; &R-C3-3063; [16-67]
+	)
+       ((===gt		    . 10162)	; &R-GT-10162;
+	)
+       ((===ucs@unicode	    . #x5CE9)	; &R-UU+5CE9;
+	)
+       ((===cbeta	    . 00777)	; &R-CB00777;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 46)	; â¼­
@@ -25205,7 +25257,10 @@
     (=cns11643-7	. #x2D4B)	; &I-C7-2D4B; [13-43]
     ))
 (define-char
-  '((ideographic-radical . 46)	; â¼­
+  '((<-denotational@usage
+     ((==>daijiten	  . 02727)	; &A2-DJT-02727;
+      ))
+    (ideographic-radical . 46)	; â¼­
     (ideographic-strokes . 13)
     (total-strokes	 . 16)
     (ideographic-structure
@@ -25238,13 +25293,15 @@
     (=cns11643-2	. #x5672)	; &C2-5672; [54-82]
     (=big5		. #xE968)	; &I-B-E968;
     (=daikanwa		. 08517)	; &I-M-08517;
+    (=daijiten		. 02727)	; &I-DJT-02727;
     (<-formed
      ((=ucs		  . #x5D72)	; åµ²
       ))
     (<-formed$_1*sources
      jiyun)
     (<-interchangeable
-     ((=ucs		  . #x5CE9)	; 峩
+     ((=ucs@unicode	  . #x5CE9)	; &AJ1-04675;
+      (=adobe-japan1-0	  . 04675)	; &AJ1-04675;
       (=daikanwa	  . 08072)	; &I-M-08072;
       ))
     (<-interchangeable$_1*sources
@@ -25290,9 +25347,12 @@
      ((==ucs@unicode	  . #x5DAD)	; &g2-M-08517;
       (==cns11643-2	  . #x5672)	; &g2-M-08517; [54-82]
       (==daikanwa	  . 08517)	; &g2-M-08517;
+      (==daijiten	  . 02727)	; &g2-M-08517;
       (->subsumptive
        ((===daikanwa	    . 08517)	; &R-M-08517;
 	)
+       ((===daijiten	    . 02727)	; &R-DJT-02727;
+	)
        ((===cns11643-2	    . #x5672)	; &R-C2-5672; [54-82]
 	)
        ((===ucs@unicode	    . #x5DAD)	; &R-UU+5DAD;
@@ -31687,6 +31747,11 @@
     ))
 (define-char
   '((ideographic-radical . 46)	; â¼­
+    (==>ucs@bucs	. #x5CE8)	; &BUCS+5CE8;
+    (==>daijiten	. 02583)	; &BUCS+5CE8;
+    ))
+(define-char
+  '((ideographic-radical . 46)	; â¼­
     (==>daijiten	. 02590)	; &A2-DJT-02590;
     ))
 (define-char
@@ -31747,6 +31812,10 @@
     ))
 (define-char
   '((ideographic-radical . 46)	; â¼­
+    (==>daijiten	. 02727)	; &A2-DJT-02727;
+    ))
+(define-char
+  '((ideographic-radical . 46)	; â¼­
     (==>daijiten	. 02730)	; &A2-DJT-02730;
     ))
 (define-char
-- 
1.7.10.4