From 57281b3c10a53fedee217d0e99c02c608dd7117c Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 27 Oct 2016 15:11:22 +0900
Subject: [PATCH] Add glyph-images of HNG-KAR. (U+8FB1): Separate A-UU+8FB1.
 (A-UU+8FB1): Add `=>ucs@iwds-1'. (BUCS+8FB2): New abstract
 node. (U+8FB2): Add `<-denotational' for BUCS+8FB2;
 separate UU+8FB2. (UU+8FB2): Add `=>ucs@iwds-1'.
 (HNG-KAR1331-0): New character; use `<-denotational' for
 U+8FB2. (MJ058836): New character; use `<-denotational' for
 BUCS+8FB2; unify KOSEKI-437470; use `<-formed' for UU+8FB2.

---
 lisp/utf-2000/Ideograph-R161-Morning.el |  109 ++++++++++++++++++++++++++++---
 1 file changed, 101 insertions(+), 8 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R161-Morning.el b/lisp/utf-2000/Ideograph-R161-Morning.el
index ebe1bae..f45bace 100644
--- a/lisp/utf-2000/Ideograph-R161-Morning.el
+++ b/lisp/utf-2000/Ideograph-R161-Morning.el
@@ -77,6 +77,11 @@
     (->subsumptive
      ((==mj		  . 058835)	; &g2-MJ058835;
       (==koseki		  . 437400)	; &g2-MJ058835;
+      )
+     ((===hng-kar	  . 03940)	; &HNG018-03940;
+      (<-formed
+       ((=ucs		    . #x8FB0)	; è¾°
+	))
       ))
     ))
 (define-char
@@ -120,10 +125,7 @@
      ((==>ucs@bucs	  . #x8FB1)	; &BUCS+8FB1;
       ))
     (ideographic-radical . 161)	; â¾ 
-    (ideographic-strokes . 3)
-    (total-strokes	 . 10)
     (=ucs		. #x8FB1)	; è¾±
-    (=big5		. #xB064)	; &I-B-B064;
     ))
 (define-char
   '((<-denotational
@@ -132,6 +134,18 @@
     (ideographic-radical . 161)	; â¾ 
     (ideographic-strokes . 3)
     (total-strokes	 . 10)
+    (=>ucs@iwds-1	. #x8FB1)	; &A-IWDSU+8FB1;
+    (=>ucs@unicode	. #x8FB1)	; &A-IWDSU+8FB1;
+    (=big5		. #xB064)	; &A-IWDSU+8FB1;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x8FB1)	; &A-IWDSU+8FB1;
+      (=>ucs@unicode	  . #x8FB1)	; &A-IWDSU+8FB1;
+      ))
+    (ideographic-radical . 161)	; â¾ 
+    (ideographic-strokes . 3)
+    (total-strokes	 . 10)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -182,7 +196,8 @@
     ))
 (define-char
   '((<-denotational
-     ((=ucs		  . #x8FB1)	; è¾±
+     ((=>ucs@iwds-1	  . #x8FB1)	; &A-IWDSU+8FB1;
+      (=>ucs@unicode	  . #x8FB1)	; &A-IWDSU+8FB1;
       ))
     (ideographic-radical . 161)	; â¾ 
     (ideographic-strokes . 3)
@@ -216,21 +231,44 @@
     ))
 (define-char
   '((ideographic-radical . 161)	; â¾ 
+    (==>ucs@bucs	. #x8FB2)	; &BUCS+8FB2;
+    ))
+(define-char
+  '((<-denotational
+     ((==>ucs@bucs	  . #x8FB2)	; &BUCS+8FB2;
+      ))
+    (ideographic-radical . 161)	; â¾ 
+    (=ucs		. #x8FB2)	; è¾²
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x8FB2)	; è¾²
+      ))
+    (ideographic-radical . 161)	; â¾ 
     (ideographic-strokes . 6)
     (total-strokes	 . 13)
-    (=ucs		. #x8FB2)	; è¾²
-    (=adobe-japan1-0	. 03318)	; &I-AJ1-03318;
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x66F2)	; 曲
+      )
+     ((=ucs		  . #x8FB0)	; è¾°
+      ))
+    (=>ucs@iwds-1	. #x8FB2)	; &AJ1-03318;
+    (=ucs@unicode	. #x8FB2)	; &AJ1-03318;
+    (=adobe-japan1-0	. 03318)	; &AJ1-03318;
     (=jis-x0208		. #x4740)	; &I-J90-4740; [39-32]
     (=ks-x1001		. #x525C)	; &I-K0-525C; [50-60]
     (=cns11643-1	. #x6729)	; &I-C1-6729; [71-09]
     (=jis-x0213-1	. #x4740)	; &I-JX1-4740; [39-32]
-    (=gb12345		. #x4529)	; è¾² [37-09]
+    (=gb12345		. #x4529)	; &AJ1-03318; [37-09]
     (=big5		. #xB941)	; &I-B-B941;
     (=gt		. 51627)	; &I-GT-51627;
     (=gt-k		. 10262)	; &I-GT-K10262;
     (=gt-pj-1		. #x4740)	; &I-GT-51627; [39-32]
     (=daikanwa		. 38688)	; &I-M-38688;
-    (=shinjigen		.  8206)	; è¾²
+    (=shinjigen		.  8206)	; &AJ1-03318;
     (->subsumptive
      ((==ucs@unicode	  . #x8FB2)	; &g2-AJ1-03318;
       (==adobe-japan1-0	  . 03318)	; &g2-AJ1-03318;
@@ -264,6 +302,61 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x8FB2)	; è¾²
+      ))
+    (ideographic-radical . 161)	; â¾ 
+    (ideographic-strokes . 6)
+    (total-strokes	 . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x66F2)	; 曲
+      )
+     ((=mj		  . 058835)	; &MJ058835;
+      ))
+    (===hng-kar		. 13310)	; &HNG018-13310;
+    ))
+(define-char
+  '((<-denotational
+     ((==>ucs@bucs	  . #x8FB2)	; &BUCS+8FB2;
+      ))
+    (ideographic-radical . 161)	; â¾ 
+    (ideographic-strokes . 6)
+    (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x66F2)	; 曲
+      )
+     ((=ucs		  . #x2B755)	; 𫝕
+      ))
+    (=mj		. 058836)	; &MJ058836;
+    (=koseki		. 437470)	; &MJ058836;
+    (<-formed
+     ((=ucs@unicode	  . #x8FB2)	; &AJ1-03318;
+      (=adobe-japan1-0	  . 03318)	; &AJ1-03318;
+      ))
+    (<-formed*sources
+     koseki)
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((==ucs@unicode	    . #x66F2)	; &g2-AJ1-01730;
+	(==adobe-japan1-0   . 01730)	; &g2-AJ1-01730;
+	)
+       ((==ucs@iso	    . #x2B755)	; &g2-MJ058834;
+	(==mj		    . 058834)	; &g2-MJ058834;
+	))
+      (==mj		  . 058836)	; &g2-MJ058836;
+      (==koseki		  . 437470)	; &g2-MJ058836;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 161)	; â¾ 
     (ideographic-strokes . 6)
     (total-strokes	 . 13)
-- 
1.7.10.4