X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R058-Snout.el;h=61ba17e540c006fbba48078fd1624ccf1c8d51f1;hb=a0e9c020577f04d94a02febb5045278286fd921e;hp=f0dc59d4e014be027079dbe97a8b61a86e1261bf;hpb=6fb52423368bb607a3ea70ef2b4c6ca518657ee6;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index f0dc59d..61ba17e 100644
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -47,17 +47,30 @@
     (total-strokes	 . 3)
     (=gt-k		. 00266)	; &GT-K00266;
     (=gt-pj-k1		. #x3663)	; &GT-K00266; [22-67]
-    (->subsumptive
-     ((name		  . "CJK RADICAL SNOUT TWO")
-      (general-category	symbol other) ; Informative Category
-      (bidi-category	. "ON")
-      (mirrored		. nil)
-      (=ucs		  . #x2E95)	; ⺕
-      (=gb2312		  . #x6566)	; &I-G0-6566; [69-70]
-      (=ucs@unicode	  . #x5F50)	; ⺕
-      )
-     ((=big5-cdp	  . #x897C)	; &CDP-897C;
+    ))
+(define-char
+  '((<-denotational
+     ((=gt-k		  . 00266)	; &GT-K00266;
       ))
+    (name		. "CJK RADICAL SNOUT TWO")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (ideographic-radical . 58)	; â¼¹
+    (ideographic-strokes . 0)
+    (total-strokes	 . 3)
+    (=ucs		. #x2E95)	; ⺕
+    (=gb2312		. #x6566)	; &I-G0-6566; [69-70]
+    (=ucs@unicode	. #x5F50)	; ⺕
+    ))
+(define-char
+  '((<-denotational
+     ((=gt-k		  . 00266)	; &GT-K00266;
+      ))
+    (ideographic-radical . 58)	; â¼¹
+    (ideographic-strokes . 0)
+    (total-strokes	 . 3)
+    (=big5-cdp		. #x897C)	; &CDP-897C;
     ))
 (define-char
   '((ideographic-radical . 58)	; â¼¹