From: tomo <tomo>
Date: Sat, 23 Feb 2002 17:01:57 +0000 (+0000)
Subject: (C1-485F): Fix :char of `<-original-ideograph'.
X-Git-Tag: r21-2-44-lazy-n7c~81
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4a80f2208e437d90c174a7997ee15996c9b78d19;p=chise%2Fxemacs-chise.git-

(C1-485F): Fix :char of `<-original-ideograph'.
(U+820D): Don't use char-ref in the `ideographic-structure'.
(M-30307): Separate J90-3C2D; map to U+8F9E; add `->identical' for
M-38638; add `<-vulgar-ideograph' for M-38671 and M-38649.
(C3-4425): Map to U+8F9E.
---

diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index b96d307..12f6e77 100644
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -22,7 +22,9 @@
     (total-strokes	 . 6)
     (<-original-ideograph
      (:sources	(shinjigen-1)
-      :char	()
+      :char	((japanese-jisx0208  . #x4065)	; ø»†¾®
+		 (ucs		     . #x820C)	; 舌
+		 )
       ))
     (ideograph-cdp	. 31451)
     (shinjigen-1	. 6629)
@@ -34,10 +36,8 @@
     (total-strokes	 . 8)
     (ideograph-cdp	. 31452)
     (ideographic-structure
-     (:cdp-combinator	2
-      :char	((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-		 (ucs		     . #x2FF1)	; ⿱
-		 )
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (ucs		  . #x2FF1)	; ⿱
       )
      ((chinese-big5-cdp	  . #x8AFC)	; ý¢€ˆ«¼
       )
@@ -398,14 +398,29 @@
     (chinese-cns11643-5 . #x4929)	; ø»š¥¤
     ))
 (define-char
-  '((ideographic-radical . 135)	; ⾆
+  '((=>ucs		. #x8F9E)	; 辞
+    (ideographic-radical . 135)	; ⾆
     (ideographic-strokes . 7)
     (total-strokes	 . 13)
-    (japanese-jisx0208-1990	. #x3C2D)	; ø½Š²
-    (ideograph-daikanwa		. 30307)	; ø¸‡™£
+    (->identical
+     (:sources	(morohashi-daikanwa)
+      :char	((ideograph-daikanwa . 38638)	; ø¸‰›®
+		 )
+      ))
+    (<-vulgar-ideograph
+     (:sources	(morohashi-daikanwa)
+      :char	((ideograph-daikanwa . 38671)	; ø¸‰œ
+		 )
+      )
+     (:sources	(morohashi-daikanwa)
+      :char	((ideograph-daikanwa . 38649)	; ø¸‰›¹
+		 )
+      ))
+    (ideograph-daikanwa . 30307)	; ø¸‡™£
     ))
 (define-char
-  '((morohashi-daikanwa	30307 0 1)
+  '((=>ucs		. #x8F9E)	; 辞
+    (morohashi-daikanwa	30307 0 1)
     (ideographic-radical . 135)	; ⾆
     (ideographic-strokes . 7)
     (total-strokes	 . 13)