(SW-JIGUGE-08807): Add U-00029C4B as a corresponding modern character;

add `<-simplified@shuowen' for SW-JIGUGE-08806.
(SW-JIGUGE-08808): Add `<-formed@shuowen' for SW-JIGUGE-08806.
(SW-JIGUGE-08809): Add `<-simplified@Small-Seal/shuowen' for
SW-JIGUGE-08806.
(SW-JIGUGE-08821): Add U+7151 as a corresponding modern character; add
`<-formed@shuowen' for SW-JIGUGE-08820.
(SW-JIGUGE-08822): Add `<-formed@shuowen' for SW-JIGUGE-08820.

diff --git a/lisp/utf-2000/ShuoWen-SR072.el b/lisp/utf-2000/ShuoWen-SR072.el
index 3ffbab4..7165ab2 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR072.el
+++ b/lisp/utf-2000/ShuoWen-SR072.el
@@ -101,8 +101,15 @@
   '((shuowen-radical   . 72)   ; 䰜
     (=shuowen-jiguge   . 08807)        ; &SW-JIGUGE-08807;
     (<-Small-Seal@shuowen
+     ((=ucs              . #x29C4B)    ; 𩱋
+      )
      ((=ucs              . #x29C41)    ; 𩱁
       ))
+    (<-simplified@shuowen
+     ((=shuowen-jiguge   . 08806)      ; &SW-JIGUGE-08806;
+      )
+     ((=ucs              . #x29C67)    ; 𩱧
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 08807)     ; &SW-JIGUGE5-08807;
       )
@@ -115,6 +122,11 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x2244C)    ; 𢑌
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 08806)      ; &SW-JIGUGE-08806;
+      )
+     ((=ucs              . #x29C67)    ; 𩱧
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 08808)     ; &SW-JIGUGE5-08808;
       )
@@ -129,6 +141,11 @@
       )
      ((=ucs              . #x7FAE)     ; 羮
       ))
+    (<-simplified@Small-Seal/shuowen
+     ((=shuowen-jiguge   . 08806)      ; &SW-JIGUGE-08806;
+      )
+     ((=ucs              . #x29C67)    ; 𩱧
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 08809)     ; &SW-JIGUGE5-08809;
       )
@@ -271,8 +288,15 @@
   '((shuowen-radical   . 72)   ; 䰜
     (=shuowen-jiguge   . 08821)        ; &SW-JIGUGE-08821;
     (<-Small-Seal@shuowen
+     ((=ucs              . #x7151)     ; 煑
+      )
      ((=ucs              . #x716E)     ; 煮
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 08820)      ; &SW-JIGUGE-08820;
+      )
+     ((=ucs              . #x4C1E)     ; 䰞
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 08821)     ; &SW-JIGUGE5-08821;
       )
@@ -285,6 +309,11 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x29C70)    ; 𩱰
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 08820)      ; &SW-JIGUGE-08820;
+      )
+     ((=ucs              . #x4C1E)     ; 䰞
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 08822)     ; &SW-JIGUGE5-08822;
       )