From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 27 Jul 2022 10:56:07 +0000 (+0900)
Subject: (A-SW-JIGUGE-51502): New abstract node.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f2345574cd3a5a076cb9e5bb87e8e2b5867af8fd;p=chise%2Fxemacs-chise.git

(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
--- 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;
       )