(A-SW-JIGUGE-51502): New abstract node.

(SW-JIGUGE-51502): Add `<-denotational' for A-SW-JIGUGE-51502; add
U-00021A5F as a corresponding modern character.
(SW-JIGUGE4-50002): Use `<-denotational' for A-SW-JIGUGE-51502 instead
of `<-subsumptive' for SW-JIGUGE-51502.
(SW-JIGUGE-51503): Add `<-ancient@shuowen' for SW-JIGUGE-51502 and
SW-JIGUGE4-50002.

diff --git a/lisp/utf-2000/ShuoWen-SR530.el b/lisp/utf-2000/ShuoWen-SR530.el
index 970ba83..e24c89c 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR530.el
+++ b/lisp/utf-2000/ShuoWen-SR530.el
@@ -1,14 +1,33 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((shuowen-radical   . 530)  ; 寅
+    (=>shuowen-jiguge  . 51502)        ; &A-SW-JIGUGE-51502;
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge          . 51502)      ; &A-SW-JIGUGE-51502;
+      ))
+    (shuowen-radical   . 530)  ; 寅
     (=shuowen-jiguge   . 51502)        ; &SW-JIGUGE-51502;
     (<-Small-Seal@shuowen
+     ((=ucs              . #x21A5F)    ; 𡩟
+      )
      ((=ucs              . #x5BC5)     ; 寅
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 51502)     ; &SW-JIGUGE5-51502;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge          . 51502)      ; &A-SW-JIGUGE-51502;
+      ))
+    (shuowen-radical   . 530)  ; 寅
+    (===shuowen-jiguge4 . 50002)       ; &SW-JIGUGE4-50002;
+    (<-Small-Seal@shuowen
+     ((=ucs              . #x21A5F)    ; 𡩟
       )
-     ((===shuowen-jiguge4 . 50002)     ; &SW-JIGUGE4-50002;
+     ((=ucs              . #x5BC5)     ; 寅
       ))
     ))
 (define-char
@@ -17,6 +36,15 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x214F5)    ; 𡓵
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge   . 51502)      ; &SW-JIGUGE-51502;
+      )
+     ((===shuowen-jiguge4 . 50002)     ; &SW-JIGUGE4-50002;
+      )
+     ((=ucs              . #x21A5F)    ; 𡩟
+      )
+     ((=ucs              . #x5BC5)     ; 寅
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 51503)     ; &SW-JIGUGE5-51503;
       )