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

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)     ; ⿱

diff --git a/lisp/utf-2000/Ideograph-R027-Cliff.el b/lisp/utf-2000/Ideograph-R027-Cliff.el
index a1b6c61..2a530b3 100644 (file)
--- a/lisp/utf-2000/Ideograph-R027-Cliff.el
+++ b/lisp/utf-2000/Ideograph-R027-Cliff.el
@@ -3028,13 +3028,15 @@
     (ideographic-radical . 27) ; ⼚
     (ideographic-strokes . 15)
     (total-strokes      . 17)
-    (<-simplified
-     (:sources (morohashi-daikanwa shinjigen-1)
-      :char    ((ideographic-radical . 30)     ; ⼝
-                (shinjigen-1        . 1286)
-                (=daikanwa          . 04589)   ; �����
-                )
-      ))
+    (<-simplified@JP/Jouyou
+     ((shinjigen-1       . 1286)
+      (=jis-x0208        . #x536E)     ; �����
+      (=ks-x1001         . #x6571)     ; �����
+      (=cns11643-1       . #x7964)     ; �����
+      (=daikanwa         . 04589)      ; �����
+      ))
+    (<-simplified@JP/Jouyou*sources
+     daikanwa shinjigen-1 JP/Jouyou)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
       (=ucs              . #x2FF8)     ; ⿸

diff --git a/lisp/utf-2000/Ideograph-R028-Private.el b/lisp/utf-2000/Ideograph-R028-Private.el
index 44ea7fb..e0ceea7 100644 (file)
--- a/lisp/utf-2000/Ideograph-R028-Private.el
+++ b/lisp/utf-2000/Ideograph-R028-Private.el
@@ -590,12 +590,14 @@
     (ideographic-radical . 28) ; ⼛
     (ideographic-strokes . 6)
     (total-strokes      . 8)
-    (<-simplified
-     (: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")