From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 22 Aug 2016 02:47:34 +0000 (+0900)
Subject: (BUCS+74DC): New abstract character.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7a689acf00e3f11c32815959c18a69aea257b40b;p=chise%2Fxemacs-chise.git

(BUCS+74DC): New abstract character.
(U+74DC): Add `<-denotational' for BUCS+74DC.
(U-000244F0): New character; use `<-denotational' for BUCS+74DC; unify
BC-88A3; add HNG-KAR1077-0.
(U+74E2): Separate A-UU+74E2.
(A-UU+74E2): Add `=>ucs@iwds-1'.
(HNG-KAR0244-0): New character; use `<-denotational' for U+74E2.
---

diff --git a/lisp/utf-2000/Ideograph-R097-Melon.el b/lisp/utf-2000/Ideograph-R097-Melon.el
index e6414f6..6d0d88e 100644
--- a/lisp/utf-2000/Ideograph-R097-Melon.el
+++ b/lisp/utf-2000/Ideograph-R097-Melon.el
@@ -2,6 +2,14 @@
 (define-char
   '((ideographic-radical . 97)	; â½ 
     (ideographic-strokes . 0)
+    (==>ucs@bucs	. #x74DC)	; &BUCS+74DC;
+    ))
+(define-char
+  '((<-denotational
+     ((==>ucs@bucs	  . #x74DC)	; &BUCS+74DC;
+      ))
+    (ideographic-radical . 97)	; â½ 
+    (ideographic-strokes . 0)
     (total-strokes	 . 5)
     (=ucs		. #x74DC)	; 瓜
     (=big5		. #xA5CA)	; &I-B-A5CA;
@@ -73,6 +81,30 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((==>ucs@bucs	  . #x74DC)	; &BUCS+74DC;
+      ))
+    (ideographic-radical . 97)	; â½ 
+    (ideographic-strokes . 0)
+    (total-strokes	 . 4)
+    (=ucs		. #x244F0)	; 𤓰
+    (=big5-cdp		. #x88A3)	; &I-CDP-88A3;
+    (->subsumptive
+     ((==ucs@iso	  . #x244F0)	; &g2-CDP-88A3;
+      (==big5-cdp	  . #x88A3)	; &g2-CDP-88A3;
+      (->subsumptive
+       ((===ucs@iso	    . #x244F0)	; &R-U-000244F0;
+	)
+       ((===big5-cdp	    . #x88A3)	; &R-CDP-88A3;
+	)
+       ((===hng-kar	    . 10770)	; &HNG018-10770;
+	(<-formed
+	 ((=ucs		      . #x74DC)	; 瓜
+	  ))
+	))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 97)	; â½ 
     (ideographic-strokes . 3)
     (total-strokes	 . 8)
@@ -771,11 +803,9 @@
       )
      ((=ucs		  . #x7968)	; 票
       )
-     ((=ucs		  . #x74DC)	; 瓜
+     ((==>ucs@bucs	  . #x74DC)	; &BUCS+74DC;
       ))
     (=ucs		. #x74E2)	; 瓢
-    (=>jis-x0208	. #x493B)	; 瓢 [41-27]
-    (=>jis-x0213-1	. #x493B)	; 瓢 [41-27]
     ))
 (define-char
   '((<-denotational
@@ -788,6 +818,28 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
       )
+     ((=ucs		  . #x7968)	; 票
+      )
+     ((=ucs		  . #x74DC)	; 瓜
+      ))
+    (=>ucs@iwds-1	. #x74E2)	; &J97-493B;
+    (=>ucs@unicode	. #x74E2)	; &J97-493B;
+    (=>jis-x0208	. #x493B)	; &J97-493B; [41-27]
+    (=>jis-x0213-1	. #x493B)	; &J97-493B; [41-27]
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x74E2)	; &J97-493B;
+      (=>ucs@unicode	  . #x74E2)	; &J97-493B;
+      (=>jis-x0208	  . #x493B)	; &J97-493B; [41-27]
+      ))
+    (ideographic-radical . 97)	; â½ 
+    (ideographic-strokes . 11)
+    (total-strokes	 . 16)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
      ((=ucs@unicode	  . #x7968)	; &AJ1-03502;
       (=adobe-japan1-0	  . 03502)	; &AJ1-03502;
       )
@@ -854,6 +906,23 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x74E2)	; 瓢
+      ))
+    (ideographic-radical . 97)	; â½ 
+    (ideographic-strokes . 11)
+    (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x7968)	; 票
+      )
+     ((=ucs		  . #x244F0)	; 𤓰
+      ))
+    (===hng-kar		. 02440)	; &HNG018-02440;
+    ))
+(define-char
   '((ideographic-radical . 97)	; â½ 
     (ideographic-strokes . 11)
     (total-strokes	 . 16)