From d8fd8919dd9ba30639d7c2c50229d95de08d1be3 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 21 Oct 2008 05:17:44 +0000
Subject: [PATCH] (U+9B1C): Use `->subsumptive'. (U+9B1D): Use `=>daikanwa'
 instead of `morohashi-daikanwa'.

---
 lisp/utf-2000/Ideograph-R190-Hair.el |   23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R190-Hair.el b/lisp/utf-2000/Ideograph-R190-Hair.el
index b1b57cb..d432728 100644
--- a/lisp/utf-2000/Ideograph-R190-Hair.el
+++ b/lisp/utf-2000/Ideograph-R190-Hair.el
@@ -2469,20 +2469,19 @@
     (ideographic-strokes . 12)
     (total-strokes	 . 22)
     (=ucs		. #x9B1C)	; 鬜
-    (=jis-x0212		. #x6A2E)	; &I-JSP-6A2E; [74-14]
-    (=jis-x0213-2	. #x7D3B)	; &I-JX2-7D3B; [93-27]
-    (=daikanwa		. 45587)	; &I-M-45587;
-    ))
-(define-char
-  '((=>ucs		. #x9B1C)	; 鬜
-    (morohashi-daikanwa	45587 0 0)
-    (ideographic-radical . 190)	; â¾½
-    (ideographic-strokes . 12)
-    (total-strokes	 . 22)
-    (=cns11643-4	. #x6971)	; &C4-6971; [73-81]
+    (->subsumptive
+     ((=daikanwa	  . 45587)	; &M-45587;
+      )
+     ((=jis-x0212	  . #x6A2E)	; &JX2-7D3B; [74-14]
+      (=jis-x0213-2	  . #x7D3B)	; &I-JX2-7D3B; [93-27]
+      (=ucs@unicode	  . #x9B1C)	; &JX2-7D3B;
+      (=ucs@jis/2000	  . #x9B1C)	; &JX2-7D3B;
+      )
+     ((=cns11643-4	  . #x6971)	; &C4-6971; [73-81]
+      ))
     ))
 (define-char
-  '((morohashi-daikanwa	45587 0 5)
+  '((=>daikanwa		. 45587)	; &M-45587;
     (ideographic-radical . 190)	; â¾½
     (ideographic-strokes . 12)
     (total-strokes	 . 22)
-- 
1.7.10.4