(M-19687): Unify GT-K09318 and GT-25281; don't use char-ref; use

`*sources' instead.
(GT-25283): New character.
(GT-25282): New character.
(U-00024514): Unify GT-K09372.

diff --git a/lisp/utf-2000/Ideograph-R087-Claw.el b/lisp/utf-2000/Ideograph-R087-Claw.el
index e84001f..4e5da8a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R087-Claw.el
+++ b/lisp/utf-2000/Ideograph-R087-Claw.el
@@ -346,16 +346,39 @@
     (ideographic-strokes . 8)
     (total-strokes      . 12)
     (->ancient-ideograph
-     (:sources (morohashi-daikanwa)
-      :char    ((=daikanwa          . 19682)   ; �����
-                )
+     ((=daikanwa         . 19682)      ; �����
       ))
+    (->ancient-ideograph*sources
+     daikanwa)
     (->same-ideograph
-     (:sources (shuowen morohashi-daikanwa)
-      :char    ((=daikanwa          . 00214)   ; �����
-                )
+     ((=daikanwa         . 00214)      ; �����
       ))
+    (->same-ideograph*sources
+     shuowen daikanwa)
+    (=gt-pj-4          . #x624B)       ; ������
     (=daikanwa         . 19687)        ; �����
+    (=gt-k             . 09318)        ; ������
+    (=gt               . 25281)        ; ������
+    ))
+(define-char
+  '((=>ucs             . #x24514)      ; 𤔔
+    (morohashi-daikanwa        19687 0 2)
+    (ideographic-radical . 87) ; ⽖
+    (ideographic-strokes . 8)
+    (total-strokes      . 12)
+    (=gt-pj-9          . #x6634)       ; ������
+    (=gt-k             . 09319)        ; ������
+    (=gt               . 25283)        ; ������
+    ))
+(define-char
+  '((=>ucs             . #x24514)      ; 𤔔
+    (morohashi-daikanwa        19687 0 3)
+    (ideographic-radical . 87) ; ⽖
+    (ideographic-strokes . 8)
+    (total-strokes      . 12)
+    (=gt-pj-9          . #x4B68)       ; ������
+    (=gt-k             . 09799)        ; ������
+    (=gt               . 25282)        ; ������
     ))
 (define-char
   '((=>ucs             . #x24514)      ; 𤔔
@@ -371,6 +394,8 @@
     (ideographic-radical . 87) ; ⽖
     (ideographic-strokes . 8)
     (total-strokes      . 12)
+    (=gt-pj-k2         . #x363B)       ; 𤔔
+    (=gt-k             . 09372)        ; ������
     (=ucs              . #x24514)      ; 𤔔
     ))
 (define-char