From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 15 May 2014 09:36:56 +0000 (+0900)
Subject: (U-0002067B): Add `<-ancient' for U+738B; use `->subsumptive' to add
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git;a=commitdiff_plain;h=99003134645496eb6de01c08ce83fef5ff309dea

(U-0002067B): Add `<-ancient' for U+738B; use `->subsumptive' to add
representative nodes.
(GT-K01231): Moved from Ideograph-R121-Jar.el; use U-0002067B as its
mother.
---

diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index e8fdc51..b2fcc55 100644
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -293,6 +293,31 @@
     (=cns11643-6	. #x223E)	; &I-C6-223E; [02-30]
     (=daikanwa		. 01813)	; &I-M-01813;
     (=hanziku-1		. #xE55E)	; &I-HZK01-E55E;
+    (<-ancient
+     ((=ucs		  . #x738B)	; 王
+      (=daikanwa	  . 20823)	; &I-M-20823;
+      ))
+    (<-ancient*sources
+     shuowen daikanwa)
+    (->subsumptive
+     ((==daikanwa	  . 01813)	; &R-M-01813;
+      )
+     ((==ucs@iso	  . #x2067B)	; &R-U-0002067B;
+      (==cns11643-6	  . #x223E)	; &R-U-0002067B; [02-30]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2067B)	; 𠙻
+      ))
+    (ideographic-radical . 17)	; ⼐
+    (ideographic-strokes . 3)
+    (total-strokes	 . 5)
+    (=gt-k		. 01231)	; &GT-K01231;
+    (=gt-pj-k1		. #x385C)	; &GT-K01231; [24-60]
+    (<-formed@component
+     ((=ucs		  . #x7F36)	; 缶
+      ))
     ))
 (define-char
   '((ideographic-radical@ucs . 17)	; ⼐