From 312dc46096bab7a36fab9ca043447e32f6c331f8 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 1 Feb 2006 05:19:02 +0000
Subject: [PATCH] (U-00023D15): Use `->subsumptive'; integrate M-17420.
 (U-00023D0E): New character.

---
 lisp/utf-2000/Ideograph-R085-Water.el |   30 +++++++++++++++++++++++++-----
 1 file changed, 25 insertions(+), 5 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R085-Water.el b/lisp/utf-2000/Ideograph-R085-Water.el
index 5159d07..fbc89bc 100644
--- a/lisp/utf-2000/Ideograph-R085-Water.el
+++ b/lisp/utf-2000/Ideograph-R085-Water.el
@@ -4627,6 +4627,18 @@
   '((ideographic-radical . 85)	; ⽔
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
+    (=ucs		. #x23D15)	; 𣴕
+    (->subsumptive
+     ((=daikanwa	  . 17420)	; &M-17420;
+      (=ucs@iso		  . #x23D15)	; &M-17420;
+      )
+     ((=cns11643-6	  . #x3237)	; &C6-3237; [18-23]
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 85)	; ⽔
+    (ideographic-strokes . 6)
+    (total-strokes	 . 9)
     (=ucs		. #x6D39)	; æ´¹
     (=gb2312		. #x6421)	; &I-G0-6421; [68-01]
     (=ks-x1001		. #x6A37)	; &I-K0-6A37; [74-23]
@@ -5265,11 +5277,19 @@
     (=cns11643-5	. #x297E)	; &I-C5-297E; [09-94]
     ))
 (define-char
-  '((ideographic-radical . 85)	; ⽔
-    (ideographic-strokes . 6)
-    (total-strokes	 . 9)
-    (=ucs		. #x23D15)	; 𣴕
-    (=cns11643-6	. #x3237)	; &I-C6-3237; [18-23]
+  '((ideographic-radical@ucs . 85)	; ⽔
+    (ideographic-strokes@ucs . 6)
+    (ideographic-radical@ucs*sources
+     jis/x0213@2000 ucs)
+    (ideographic-radical@misc . 123)	; ⽺
+    (ideographic-strokes@misc . 4)
+    (ideographic-radical@misc*sources
+     jis/x0213@2000)
+    (total-strokes	 . 10)
+    (sound@ja/kun/name	"suke" "tugu" "yosi")
+    (sound@ja/on/name	"syAu" "yAu")
+    (=ucs		. #x23D0E)	; 𣴎
+    (=jis-x0213-2-2000	. #x7475)	; &I-JX2-7475; [84-85]
     ))
 (define-char
   '((ideographic-radical . 85)	; ⽔
-- 
1.7.10.4