From 4cea90c30c699499d946005cd66dd298f9a987ae Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 24 Mar 2002 09:01:23 +0000
Subject: [PATCH] (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.

---
 lisp/utf-2000/Ideograph-R135-Tongue.el |   23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index fa7ef4c..bfd332f 100644
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -402,14 +402,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)
-- 
1.7.10.4