From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 17 Nov 2018 15:52:43 +0000 (+0900)
Subject: (U+81FA): Add `ideographic-structure'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=91f65ad28388afdc31ed4559b4de9b02000c8d84;p=chise%2Fxemacs-chise.git

(U+81FA): Add `ideographic-structure'.
(UU+81FA): Use GT-K04191 instead of "⿱吉冖" in
`ideographic-structure'; delete `=>ucs@iwds-1'.
---

diff --git a/lisp/utf-2000/Ideograph-R133-Arrive.el b/lisp/utf-2000/Ideograph-R133-Arrive.el
index f49475f..ed9ab2e 100644
--- a/lisp/utf-2000/Ideograph-R133-Arrive.el
+++ b/lisp/utf-2000/Ideograph-R133-Arrive.el
@@ -522,6 +522,17 @@
     ))
 (define-char
   '((ideographic-radical . 133)	; ⾄
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
+      (=ucs		  . #x2FF3)	; ⿳
+      )
+     ((=>ucs@iwds-1	  . #x5409)	; &J97-3548;
+      (=>jis-x0208	  . #x3548)	; &J97-3548; [21-40]
+      )
+     ((=ucs		  . #x5196)	; 冖
+      )
+     ((=ucs		  . #x81F3)	; 至
+      ))
     (=ucs		. #x81FA)	; 臺
     ))
 (define-char
@@ -532,16 +543,13 @@
     (ideographic-strokes . 8)
     (total-strokes	 . 14)
     (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-      (=ucs		  . #x2FF3)	; ⿳
-      )
-     ((=ucs		  . #x5409)	; 吉
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #x5196)	; 冖
+     ((=gt-k		  . 04191)	; &GT-K04191;
       )
      ((=ucs		  . #x81F3)	; 至
       ))
-    (=>ucs@iwds-1	. #x81FA)	; &AJ1-06293;
     (=ucs@unicode	. #x81FA)	; &AJ1-06293;
     (=adobe-japan1-0	. 06293)	; &AJ1-06293;
     (=jis-x0208		. #x674A)	; &I-J90-674A; [71-42]