From 726376fb8c19ce198948f96771caef5eadccd873 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 16 Jan 2004 17:11:12 +0000
Subject: [PATCH] Add some `<-simplified@JP/Jouyou' features.

---
 lisp/utf-2000/Ideograph-R024-Ten.el     |   21 ++++++++++++++-------
 lisp/utf-2000/Ideograph-R027-Cliff.el   |   16 +++++++++-------
 lisp/utf-2000/Ideograph-R028-Private.el |   12 +++++++-----
 3 files changed, 30 insertions(+), 19 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R024-Ten.el b/lisp/utf-2000/Ideograph-R024-Ten.el
index d98acd3..5462bfe 100644
--- 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
--- 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
--- 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")
-- 
1.7.10.4