From b15be5f7e44fc07b8059b72ad3d177fdd590a0c5 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 24 Nov 2002 15:25:26 +0000
Subject: [PATCH] (M-30307): Use `->same-ideograph' instead of `->identical'.
 (C3-4425): Unify U-0002F98D.

---
 lisp/utf-2000/Ideograph-R135-Tongue.el |   20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

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)	; 𦧟
-- 
1.7.10.4