From 9709f682bbd98e80cc25af6157c7aa7a7eda4aad Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 8 Oct 2005 07:02:34 +0000
Subject: [PATCH] (U+89D2): Use `->denotational' instead of `->subsumptive'.
 (<CJK RADICAL SIMPLIFIED HORN>): Copied from
 u02E00-CJK-Radical-Supplement.el. (U-000278B2): Use
 `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R148-Horn.el |   81 ++++++++++++++++++++++++++--------
 1 file changed, 63 insertions(+), 18 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R148-Horn.el b/lisp/utf-2000/Ideograph-R148-Horn.el
index 5158899..c1c2057 100644
--- a/lisp/utf-2000/Ideograph-R148-Horn.el
+++ b/lisp/utf-2000/Ideograph-R148-Horn.el
@@ -4,21 +4,47 @@
     (ideographic-strokes . 0)
     (total-strokes	 . 7)
     (=ucs		. #x89D2)	; 角
-    (->subsumptive
-     ((shinjigen-2	  . 7510)
-      (=jis-x0208	  . #x3351)	; &GT-47107; [19-49]
-      (=ks-x1001	  . #x4A47)	; &I-K0-4A47; [42-39]
-      (=cns11643-1	  . #x4B45)	; &I-C1-4B45; [43-37]
-      (=big5		  . #xA8A4)	; &I-B-A8A4;
-      (=gt		  . 47107)	; &I-GT-47107;
-      (=gt-k		  . 02511)	; &I-GT-K02511;
-      (=gt-pj-1		  . #x3351)	; &I-GT-47107; [19-49]
-      (=daikanwa	  . 35003)	; &I-M-35003;
-      (=ucs@jis		  . #x89D2)	; &GT-47107;
-      )
-     ((=gb2312		  . #x3D47)	; &G0-3D47; [29-39]
-      (=ucs@unicode	  . #x89D2)	; &G0-3D47;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x89D2)	; 角
+      ))
+    (ideographic-radical . 148)	; ⾓
+    (ideographic-strokes . 0)
+    (total-strokes	 . 7)
+    (shinjigen-2	. 7510)
+    (=jis-x0208		. #x3351)	; &GT-47107; [19-49]
+    (=ks-x1001		. #x4A47)	; &I-K0-4A47; [42-39]
+    (=cns11643-1	. #x4B45)	; &I-C1-4B45; [43-37]
+    (=big5		. #xA8A4)	; &I-B-A8A4;
+    (=gt		. 47107)	; &I-GT-47107;
+    (=gt-k		. 02511)	; &I-GT-K02511;
+    (=gt-pj-1		. #x3351)	; &I-GT-47107; [19-49]
+    (=daikanwa		. 35003)	; &I-M-35003;
+    (=ucs@jis		. #x89D2)	; &GT-47107;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x89D2)	; 角
+      ))
+    (name		. "CJK RADICAL SIMPLIFIED HORN")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-identical@component
+     ((=ucs		  . #x89D2)	; 角
       ))
+    (=ucs		. #x2EC6)	; ⻆
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x89D2)	; 角
+      ))
+    (ideographic-radical . 148)	; ⾓
+    (ideographic-strokes . 0)
+    (total-strokes	 . 7)
+    (=gb2312		. #x3D47)	; &G0-3D47; [29-39]
+    (=ucs@unicode	. #x89D2)	; &G0-3D47;
     ))
 (define-char
   '((ideographic-radical . 148)	; ⾓
@@ -35,10 +61,29 @@
     (ideographic-strokes . 1)
     (total-strokes	 . 8)
     (=ucs		. #x278B2)	; 𧢲
-    (=cns11643-6	. #x2E2E)	; &I-C6-2E2E; [14-14]
-    (=gt		. 47108)	; &I-GT-47108;
-    (=gt-pj-7		. #x3057)	; &I-GT-47108; [16-55]
-    (=daikanwa		. 35005)	; &I-M-35005;
+    (->subsumptive
+     ((=gt		  . 47108)	; &GT-47108;
+      (=gt-pj-7		  . #x3057)	; &GT-47108; [16-55]
+      (=daikanwa	  . 35005)	; &I-M-35005;
+      )
+     ((=ucs@iso		  . #x278B2)	; &U-000278B2;
+      )
+     ((=cns11643-6	  . #x2E2E)	; &C6-2E2E; [14-14]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x278B2)	; 𧢲
+      ))
+    (name		. "CJK RADICAL HORN")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-identical@component
+     ((=gt		  . 47108)	; &GT-47108;
+      (=daikanwa	  . 35005)	; &I-M-35005;
+      ))
+    (=ucs		. #x2EC7)	; ⻇
     ))
 (define-char
   '((ideographic-radical . 148)	; ⾓
-- 
1.7.10.4