From 44b00b38e7aa2710acc6e718d17e0e129b7c6f9b Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 15 Feb 2018 14:09:49 +0900
Subject: [PATCH] (U-00020832): Add `<-ancient' for U+529B; add `->Bopomofo'
 for <BOPOMOFO LETTER L>; add representative nodes.

---
 lisp/utf-2000/Ideograph-R019-Power.el |   23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 0a40e96..b37d320 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -83,6 +83,28 @@
     (=ucs		. #x20832)	; ð  ²
     (=cns11643-6	. #x213A)	; &I-C6-213A; [01-26]
     (=daikanwa		. 02290)	; &I-M-02290;
+    (<-ancient
+     ((=ucs		  . #x529B)	; 力
+      (=daikanwa	  . 02288)	; &I-M-02288;
+      ))
+    (<-ancient*sources
+     zihui-bu daikanwa)
+    (->Bopomofo
+     ((name		  . "BOPOMOFO LETTER L")
+      (=ucs		  . #x310C)	; ㄌ
+      ))
+    (->subsumptive
+     ((==ucs@iso	  . #x20832)	; &g2-M-02290;
+      (==cns11643-6	  . #x213A)	; &g2-M-02290; [01-26]
+      (==daikanwa	  . 02290)	; &g2-M-02290;
+      (->subsumptive
+       ((===daikanwa	    . 02290)	; &R-M-02290;
+	)
+       ((===cns11643-6	    . #x213A)	; &R-C6-213A; [01-26]
+	)
+       ((===ucs@iso	    . #x20832)	; &R-U-00020832;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 19)	; ⼒
@@ -6259,7 +6281,6 @@
       (=ucs		  . #x2FF1)	; ⿱
       )
      ((=>ucs@iwds-1	  . #x5F37)	; &J97-362F;
-      (=>ucs@jis	  . #x5F37)	; &J97-362F;
       (=>jis-x0208	  . #x362F)	; &J97-362F; [22-15]
       )
      ((=ucs		  . #x529B)	; 力
-- 
1.7.10.4