From c8cef9d7ed2beba0bf1b47578ae9ca06bef9e41e Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 16 Oct 2020 21:58:56 +0900
Subject: [PATCH] (U+5183-itaiji-001): New character; use `<-denotational' for
 U+5183; use `<-denotational@component' for IWDS1-0118.

---
 lisp/utf-2000/Ideograph-R013-Down-Box.el |   32 ++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index dc829df..9c17503 100644
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -397,6 +397,38 @@
      ((=>ucs@component	  . #x65E5)	; &A-compU+65E5;
       (=>iwds-1		  .  0118)	; &A-compU+65E5;
       ))
+    (ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 2)
+    (total-strokes	 . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5182)	; 冂
+      )
+     ((=>ucs@component	  . #x4E8C)	; &A-compU+4E8C;
+      ))
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=gt-k		  . 00393)	; &GT-K00393;
+      )
+     ((=ucs		  . #x4E00)	; 一
+      ))
+    (=ucs-itaiji-001	. #x5183)	; &U-i001+5183;
+    (->subsumptive
+     ((==ucs-itaiji-001	  . #x5183)	; &g2-U-i001+5183;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5183)	; 冃
+      ))
+    (<-denotational@component
+     ((=>ucs@component	  . #x65E5)	; &A-compU+65E5;
+      (=>iwds-1		  .  0118)	; &A-compU+65E5;
+      ))
     (name		. "CJK RADICAL SUN")
     (name*		. "ideographic component hood")
     (general-category	symbol other) ; Informative Category
-- 
1.7.10.4