From 392de6d8e8987d2c2e649251e39d96e7d6ad952c Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 20 Sep 2023 03:39:06 +0900
Subject: [PATCH] (U+653E-var-006): New character; use `<-denotational' for
 U+653E. (U+656B): Add `<-denotational@usage' for BUCS+656B.
 (DJT-04283): New character; use `<-denotational' for
 U+656B. (BUCS+656B): New abstract node; unify A2-DJT-04283.

---
 lisp/utf-2000/Ideograph-R066-Rap.el |   57 ++++++++++++++++++++++++++++++++---
 1 file changed, 52 insertions(+), 5 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R066-Rap.el b/lisp/utf-2000/Ideograph-R066-Rap.el
index 5d8b765..2673a88 100644
--- a/lisp/utf-2000/Ideograph-R066-Rap.el
+++ b/lisp/utf-2000/Ideograph-R066-Rap.el
@@ -1275,6 +1275,23 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x653E)	; 放
+      ))
+    (ideographic-radical . 66)	; ⽁
+    (ideographic-strokes . 4)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x2D928)	; 𭤨
+      )
+     ((=ucs		  . #x4E42)	; 乂
+      ))
+    (=ucs-var-006	. #x653E)	; &U-v006+653E;
+    ))
+(define-char
   '((ideographic-radical . 66)	; ⽁
     (ideographic-strokes . 4)
     (total-strokes	 . 8)
@@ -9277,10 +9294,14 @@
   '((<-denotational
      ((=>ucs@cognate	  . #x656B)	; &A-cgnU+656B;
       ))
+    (<-denotational@usage
+     ((==>ucs@bucs	  . #x656B)	; &BUCS+656B;
+      ))
     (ideographic-radical . 66)	; ⽁
     (ideographic-strokes . 9)
     (ideographic-structure
-     ((=ucs		  . #x2FFD)	; ⿽
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER RIGHT")
+      (=ucs		  . #x2FFD)	; ⿽
       )
      ((=ucs		  . #x653E)	; 放
       )
@@ -9298,7 +9319,8 @@
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
     (ideographic-structure
-     ((=ucs		  . #x2FFD)	; ⿽
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER RIGHT")
+      (=ucs		  . #x2FFD)	; ⿽
       )
      ((=ucs@unicode	  . #x653E)	; &AJ1-03660;
       (=adobe-japan1-0	  . 03660)	; &AJ1-03660;
@@ -9358,6 +9380,23 @@
     ))
 (define-char
   '((<-denotational
+     ((=ucs		  . #x656B)	; 敫
+      ))
+    (ideographic-radical . 66)	; ⽁
+    (ideographic-strokes . 9)
+    (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER RIGHT")
+      (=ucs		  . #x2FFD)	; ⿽
+      )
+     ((=ucs-var-006	  . #x653E)	; &U-v006+653E;
+      )
+     ((=ucs		  . #x767D)	; 白
+      ))
+    (=daijiten		. 04283)	; &DJT-04283;
+    ))
+(define-char
+  '((<-denotational
      ((=>ucs@cognate	  . #x656B)	; &A-cgnU+656B;
       ))
     (ideographic-radical . 66)	; ⽁
@@ -10872,7 +10911,8 @@
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
     (ideographic-structure
-     ((=ucs		  . #x2FFD)	; ⿽
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER RIGHT")
+      (=ucs		  . #x2FFD)	; ⿽
       )
      ((=ucs		  . #x30546)	; 𰕆
       )
@@ -11946,7 +11986,8 @@
 (define-char
   '((ideographic-radical . 66)	; ⽁
     (ideographic-structure
-     ((=ucs		  . #x2FFD)	; ⿽
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER RIGHT")
+      (=ucs		  . #x2FFD)	; ⿽
       )
      ((=ucs		  . #x6549)	; 敉
       )
@@ -11992,7 +12033,8 @@
     (ideographic-strokes . 10)
     (total-strokes	 . 14)
     (ideographic-structure
-     ((=ucs		  . #x2FFD)	; ⿽
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER RIGHT")
+      (=ucs		  . #x2FFD)	; ⿽
       )
      ((=ucs@unicode	  . #x6549)	; &AJ1-19426;
       (=adobe-japan1-5	  . 19426)	; &AJ1-19426;
@@ -17164,6 +17206,11 @@
     ))
 (define-char
   '((ideographic-radical . 66)	; ⽁
+    (==>ucs@bucs	. #x656B)	; &BUCS+656B;
+    (==>daijiten	. 04283)	; &BUCS+656B;
+    ))
+(define-char
+  '((ideographic-radical . 66)	; ⽁
     (==>daijiten	. 04308)	; &A2-DJT-04308;
     ))
 (define-char
-- 
1.7.10.4