Add some `<-simplified@JP/Jouyou' features.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R028-Private.el

diff --git a/lisp/utf-2000/Ideograph-R028-Private.el b/lisp/utf-2000/Ideograph-R028-Private.el
index fc9d41a..e0ceea7 100644 (file)
--- a/lisp/utf-2000/Ideograph-R028-Private.el
+++ b/lisp/utf-2000/Ideograph-R028-Private.el
@@ -555,7 +555,7 @@
      ((=ucs              . #x53BD)     ; 厽
       )
      ((name*             . "ideographic component person as roof")
-      (=gt               . 00458)      ; ������
+      (=big5-cdp         . #x8B5D)     ; ������
       ))
     (=daikanwa         . 03088)        ; �����
     ))
@@ -590,12 +590,14 @@
     (ideographic-radical . 28) ; ⼛
     (ideographic-strokes . 6)
     (total-strokes      . 8)
-    (<-simplified-ideograph
-     (:sources (morohashi-daikanwa shinjigen-1)
-      :char    ((shinjigen-1        . 893)
-                (=daikanwa          . 03098)   ; �����
-                )
+    (<-simplified@JP/Jouyou
+     ((shinjigen-1       . 893)
+      (=ucs              . #x53C3)     ; 參
+      (=jis-x0208        . #x5254)     ; �����
+      (=daikanwa         . 03098)      ; �����
       ))
+    (<-simplified@JP/Jouyou*sources
+     daikanwa shinjigen-1 JP/Jouyou)
     (hanyu-dazidian    1 386 15)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -970,6 +972,7 @@
 (define-char
   '((ideographic-radical . 28) ; ⼛
     (ideographic-strokes . 11)
+    (total-strokes      . 13)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
       (=ucs              . #x2FF3)     ; ⿳