From: tomo <tomo>
Date: Sun, 24 Nov 2002 15:25:26 +0000 (+0000)
Subject: (M-30307): Use `->same-ideograph' instead of `->identical'.
X-Git-Tag: r21-4-9-utf-2000-0_19-cjkc~85
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b15be5f7e44fc07b8059b72ad3d177fdd590a0c5;p=chise%2Fxemacs-chise.git-

(M-30307): Use `->same-ideograph' instead of `->identical'.
(C3-4425): Unify U-0002F98D.
---

diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index 8ca0df7..402f572 100644
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -429,29 +429,27 @@
     (ideographic-radical . 135)	; ⾆
     (ideographic-strokes . 7)
     (total-strokes	 . 13)
-    (->identical
-     (:sources	(morohashi-daikanwa)
-      :char	((ideograph-daikanwa . 38638)	; ø¸‰›®
+    (->same-ideograph
+     (:char	((ideograph-daikanwa . 38638)	; ø¸‰›®
 		 )
-      ))
+      :sources	(morohashi-daikanwa)))
     (<-vulgar-ideograph
-     (:sources	(morohashi-daikanwa)
-      :char	((ideograph-daikanwa . 38671)	; ø¸‰œ
+     (:char	((ideograph-daikanwa . 38671)	; ø¸‰œ
 		 )
-      )
-     (:sources	(morohashi-daikanwa)
-      :char	((ideograph-daikanwa . 38649)	; ø¸‰›¹
+      :sources	(morohashi-daikanwa))
+     (:char	((ideograph-daikanwa . 38649)	; ø¸‰›¹
 		 )
-      ))
+      :sources	(morohashi-daikanwa)))
     (ideograph-daikanwa . 30307)	; ø¸‡™£
     ))
 (define-char
-  '((=>ucs		. #x8F9E)	; 辞
+  '((=>ucs*		. #x8F9E)	; 辞
     (morohashi-daikanwa	30307 0 1)
     (ideographic-radical . 135)	; ⾆
     (ideographic-strokes . 7)
     (total-strokes	 . 13)
     (chinese-cns11643-3 . #x4425)	; ø»–Š‚
+    (ucs		. #x2F98D)	; 辞
     ))
 (define-char
   '((=>ucs		. #x269DF)	; 𦧟