From: tomo <tomo>
Date: Wed, 17 Aug 2005 15:41:38 +0000 (+0000)
Subject: (U-00020B81): Use `ideographic-{radical|strokes}@ucs' instead of
X-Git-Tag: r21-4-17-chise-0_22-4^20~254
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9f022c769453d1aa844457578cc962064bf07ff6;p=chise%2Fxemacs-chise.git-

(U-00020B81): Use `ideographic-{radical|strokes}@ucs' instead of
`ideographic-{radical|strokes}'; add
`ideographic-{radical|strokes}@cns'; don't use `->identical' for
C6-537B and `<-same' for M-16642; use `->denotational'.
(C6-537B): Copied from Ideograph-R079-Weapon.el.
---

diff --git a/lisp/utf-2000/Ideograph-R029-Again.el b/lisp/utf-2000/Ideograph-R029-Again.el
index 80b52bb..eac2011 100644
--- a/lisp/utf-2000/Ideograph-R029-Again.el
+++ b/lisp/utf-2000/Ideograph-R029-Again.el
@@ -823,22 +823,22 @@
   '((ideographic-radical . 29)	; ⼜
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
+    (=gt-k		. 02778)	; &GT-K02778;
+    (=gt-pj-k1		. #x357C)	; &GT-K02778; [21-92]
     (->ideographic-variants
      ((=big5-cdp	  . #x8D4C)	; &CDP-8D4C;
       ))
-    (=gt-k		. 02778)	; &GT-K02778;
-    (=gt-pj-k1		. #x357C)	; &GT-K02778; [21-92]
     ))
 (define-char
   '((ideographic-radical . 29)	; ⼜
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
-    (->ideographic-variants
-     ((=gt-k		  . 02778)	; &GT-K02778;
-      ))
     (=big5-cdp		. #x8D4C)	; &CDP-8D4C;
     (=gt-k		. 02777)	; &I-GT-K02777;
     (=gt-pj-k1		. #x327B)	; &CDP-8D4C; [18-91]
+    (->ideographic-variants
+     ((=gt-k		  . 02778)	; &GT-K02778;
+      ))
     ))
 (define-char
   '((ideographic-radical . 29)	; ⼜
@@ -2120,18 +2120,28 @@
     (=cns11643-5	. #x542E)	; &I-C5-542E; [52-14]
     ))
 (define-char
-  '((ideographic-radical . 29)	; ⼜
-    (ideographic-strokes . 13)
+  '((ideographic-radical@ucs . 29)	; ⼜
+    (ideographic-strokes@ucs . 13)
+    (ideographic-radical@cns . 79)	; ⽎
+    (ideographic-strokes@cns . 7)
+    (ideographic-radical@cns*sources
+     daikanwa cns11643)
     (total-strokes	 . 15)
-    (->identical
-     ((=cns11643-6	  . #x537B)	; &C6-537B; [51-91]
-      ))
-    (<-same
-     ((=daikanwa	  . 16642)	; &M-16642;
-      ))
     (=ucs		. #x20B81)	; 𠮁
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x20B81)	; 𠮁
+      ))
+    (ideographic-radical@ucs . 29)	; ⼜
+    (ideographic-strokes@ucs . 13)
+    (ideographic-radical@cns . 79)	; ⽎
+    (ideographic-strokes@cns . 7)
+    (total-strokes	 . 13)
+    (=cns11643-6	. #x537B)	; &C6-537B; [51-91]
+    (=ucs@iso		. #x20B81)	; &C6-537B;
+    ))
+(define-char
   '((ideographic-radical . 29)	; ⼜
     (ideographic-strokes . 14)
     (total-strokes	 . 16)