From afb7c36d1d51f5faebca860b99e6af6f2985c4de Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 11 Jun 2021 01:52:51 +0900
Subject: [PATCH] (SW-JIGUGE-09515): Add `<-ancient@shuowen' for
 SW-JIGUGE-09514. (SW-JIGUGE-09517): Add U-00022F58 and
 U-00022F46 as corresponding modern characters; add
 `<-ancient@shuowen' for SW-JIGUGE-09514. (SW-JIGUGE-09518):
 Add `<-ancient@shuowen' for SW-JIGUGE-09514.
 (SW-JIGUGE-09519): Add `<-Zhouwen@shuowen' for
 SW-JIGUGE-09514.

---
 lisp/utf-2000/ShuoWen-SR087.el |   29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/lisp/utf-2000/ShuoWen-SR087.el b/lisp/utf-2000/ShuoWen-SR087.el
index d8aca12..9198242 100644
--- a/lisp/utf-2000/ShuoWen-SR087.el
+++ b/lisp/utf-2000/ShuoWen-SR087.el
@@ -17,6 +17,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x23AA9)	; 𣪩
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 09514)	; &SW-JIGUGE-09514;
+      )
+     ((=ucs		  . #x6BBA)	; 殺
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 09515)	; &SW-JIGUGE5-09515;
       ))
@@ -27,6 +32,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x22FF9)	; 𢿹
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 09514)	; &SW-JIGUGE-09514;
+      )
+     ((=ucs		  . #x6BBA)	; 殺
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 09516)	; &SW-JIGUGE5-09516;
       )
@@ -37,7 +47,16 @@
   '((shuowen-radical	. 87)	; 殺
     (=shuowen-jiguge	. 09517)	; &SW-JIGUGE-09517;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x22F58)	; 𢽘
+      )
      ((=ucs		  . #x22F45)	; 𢽅
+      )
+     ((=ucs		  . #x22F46)	; 𢽆
+      ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 09514)	; &SW-JIGUGE-09514;
+      )
+     ((=ucs		  . #x6BBA)	; 殺
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 09517)	; &SW-JIGUGE5-09517;
@@ -51,6 +70,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x2205B)	; 𢁛
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 09514)	; &SW-JIGUGE-09514;
+      )
+     ((=ucs		  . #x6BBA)	; 殺
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 09518)	; &SW-JIGUGE5-09518;
       )
@@ -63,6 +87,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x20B81)	; 𠮁
       ))
+    (<-Zhouwen@shuowen
+     ((=shuowen-jiguge	  . 09514)	; &SW-JIGUGE-09514;
+      )
+     ((=ucs		  . #x6BBA)	; 殺
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 09519)	; &SW-JIGUGE5-09519;
       ))
-- 
1.7.10.4