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

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R024-Ten.el

diff --git a/lisp/utf-2000/Ideograph-R024-Ten.el b/lisp/utf-2000/Ideograph-R024-Ten.el
index d98acd3..5462bfe 100644 (file)
--- a/lisp/utf-2000/Ideograph-R024-Ten.el
+++ b/lisp/utf-2000/Ideograph-R024-Ten.el
@@ -768,12 +768,16 @@
     (=ucs              . #x5351)       ; 卑
     ))
 (define-char
-  '((script            JP-Jouyou Ideograph)
+  '((script            JP Jouyou Ideograph)
     (=>ucs             . #x5351)       ; 卑
     (morohashi-daikanwa        2738 0 1)
     (ideographic-radical . 24) ; ⼗
     (ideographic-strokes . 7)
     (total-strokes      . 9)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #xFA35)     ; 卑
+      (=jis-x0213-1-2000  . #x2E6E)    ; �����
+      ))
     (<-vulgar-ideograph
      ((shinjigen-1       . 830)
       (=daikanwa         . 02738)      ; �����
@@ -1090,15 +1094,18 @@
     (=daikanwa         . 02751)        ; �����
     ))
 (define-char
-  '((script            JP-Jouyou Ideograph)
+  '((script            JP Jouyou Ideograph)
     (ideographic-radical . 24) ; ⼗
     (ideographic-strokes . 7)
     (total-strokes      . 9)
-    (<-simplified
-     (:char    ((shinjigen-1        . 1170)
-                (=daikanwa          . 03993)   ; �����
-                )
-      :sources (morohashi-daikanwa shinjigen-1)))
+    (<-simplified@JP/Jouyou
+     ((shinjigen-1       . 1170)
+      (=ucs              . #x55AE)     ; 單
+      (=jis-x0208        . #x5345)     ; �����
+      (=daikanwa         . 03993)      ; �����
+      ))
+    (<-simplified@JP/Jouyou*sources
+     daikanwa shinjigen-1 JP/Jouyou)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱