(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.

diff --git a/lisp/utf-2000/ShuoWen-SR087.el b/lisp/utf-2000/ShuoWen-SR087.el
index d8aca12..9198242 100644 (file)
--- 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;
       ))