(M-19682): Use `<-ancient-ideograph*sources' instead of char-ref in

[chise/xemacs-chise.git] / lisp / utf-2000 / Ideograph-R087-Claw.el

diff --git a/lisp/utf-2000/Ideograph-R087-Claw.el b/lisp/utf-2000/Ideograph-R087-Claw.el
index 97363dc..5f11cc2 100644 (file)
--- a/lisp/utf-2000/Ideograph-R087-Claw.el
+++ b/lisp/utf-2000/Ideograph-R087-Claw.el
@@ -5,8 +5,8 @@
     (total-strokes      . 4)
     (shinjigen-2       . 4696)
     (=ucs              . #x722A)       ; 爪
-    (=gb2312           . #x5726)       ; �����
     (=jis-x0208                . #x445E)       ; �����
+    (=gb2312           . #x5726)       ; �����
     (=ks-x1001         . #x7050)       ; �����
     (=cns11643-1       . #x4557)       ; �����
     (=big5             . #xA4F6)       ; ������
@@ -32,6 +32,9 @@
     (ideographic-radical . 87) ; ⽖
     (ideographic-strokes . 0)
     (total-strokes      . 4)
+    (->identical
+     ((=ucs              . #xFA49)     ; 爫
+      ))
     (=ucs              . #x722B)       ; 爫
     ))
 (define-char
@@ -40,9 +43,6 @@
     (ideographic-radical . 87) ; ⽖
     (ideographic-strokes . 0)
     (total-strokes      . 4)
-    (->identical
-     ((=ucs              . #x722B)     ; 爫
-      ))
     (=ucs              . #xFA49)       ; 爫
     (=jis-x0213-2-2000 . #x7029)       ; �����
     (=ucs@gb           . #x722B)       ; 爫
@@ -88,8 +88,8 @@
     (total-strokes      . 8)
     (shinjigen-2       . 4700)
     (=ucs              . #x722C)       ; 爬
-    (=gb2312           . #x4540)       ; �����
     (=jis-x0208                . #x6028)       ; �����
+    (=gb2312           . #x4540)       ; �����
     (=ks-x1001         . #x7770)       ; �����
     (=cns11643-1       . #x4E67)       ; �����
     (=big5             . #xAAA6)       ; ������
@@ -266,6 +266,7 @@
 (define-char
   '((ideographic-radical . 87) ; ⽖
     (ideographic-strokes . 6)
+    (total-strokes      . 10)
     (=ucs              . #x7231)       ; 爱
     (=gb2312           . #x302E)       ; �����
     ))
@@ -289,10 +290,10 @@
     (ideographic-strokes . 7)
     (total-strokes      . 11)
     (<-ancient-ideograph
-     (:sources (shuowen morohashi-daikanwa)
-      :char    ((=daikanwa          . 19687)   ; �����
-                )
+     ((=daikanwa         . 19687)      ; �����
       ))
+    (<-ancient-ideograph*sources
+     shuowen daikanwa)
     (=daikanwa         . 19682)        ; �����
     ))
 (define-char
@@ -340,6 +341,9 @@
     (=ucs              . #x7232)       ; 爲
     (=cns11643-3       . #x3D22)       ; �����
     (=gb12345          . #x4E2A)       ; 爲
+    (=gt               . 25271)        ; ������
+    (=gt-k             . 09877)        ; ������
+    (=gt-pj-9          . #x6633)       ; ������
     ))
 (define-char
   '((=>ucs             . #x24514)      ; 𤔔
@@ -643,8 +647,8 @@
     (ideographic-strokes . 13)
     (total-strokes      . 17)
     (=ucs              . #x7235)       ; 爵
-    (=gb2312           . #x3E74)       ; �����
     (=jis-x0208                . #x3C5F)       ; �����
+    (=gb2312           . #x3E74)       ; �����
     (=cns11643-1       . #x743A)       ; �����
     (=big5             . #xC0EF)       ; ������
     (=gt               . 25313)        ; ������