From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 26 Apr 2017 14:20:54 +0000 (+0900)
Subject: (U+3563): Add `ideographic-structure'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0d3bd05f268c2cb73f95dfd84fb36223a1fc0477;p=chise%2Fxemacs-chise.git

(U+3563): Add `ideographic-structure'.
(U+3563-var-001): New character; use `<-denotational' for U+3563.
---

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index b1af024..7be0c0a 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -952,6 +952,15 @@
   '((ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x51E0)	; &IWDS1-119;
+      (=>iwds-1		  .  0119)	; &IWDS1-119;
+      )
+     ((=ucs		  . #x53E3)	; 口
+      ))
     (=ucs		. #x3563)	; 㕣
     ))
 (define-char
@@ -1019,6 +1028,23 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x3563)	; 㕣
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 2)
+    (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x51E0)	; 几
+      )
+     ((=ucs		  . #x53E3)	; 口
+      ))
+    (=ucs-var-001	. #x3563)	; &U-v001+3563;
+    ))
+(define-char
   '((ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 2)
     (total-strokes	 . 5)