From: tomo <tomo>
Date: Sun, 8 Aug 2004 09:41:18 +0000 (+0000)
Subject: (U+52B3): Add `<-vulgar' for U+52DE; modify `ideographic-structure'.
X-Git-Tag: r21-4-15-chise-0_21-31^2~82
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=945f74eadc99d4d7c26147aa3e4fdf89699e8941;p=chise%2Fxemacs-chise.git.1

(U+52B3): Add `<-vulgar' for U+52DE; modify `ideographic-structure'.
---

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index d336c6b..c809c94 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -803,14 +803,18 @@
   '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
+    (<-vulgar
+     ((=ucs		  . #x52DE)	; 勞
+      (=daikanwa	  . 02410)	; &I-M-02410;
+      ))
+    (<-vulgar*sources
+     songyuan-yilai-suzipu daikanwa)
     (hanyu-dazidian	1 368 1)
     (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-      (=ucs		  . #x2FF3)	; ⿳
-      )
-     ((=big5-cdp	  . #x8957)	; &CDP-8957;
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #x5196)	; 冖
+     ((=gt-k		  . 01418)	; &GT-K01418;
       )
      ((=ucs		  . #x529B)	; 力
       ))