(SW-JIGUGE-16808): Add A-IWDSU+98DF as a corresponding modern

character.
(SW-JIGUGE-17020): Add `<-formed@shuowen' for SW-JIGUGE-17019.
(SW-JIGUGE-17021): Add U-00029782 as a corresponding modern character;
add `<-Zhouwen@shuowen' for SW-JIGUGE-17019.
(SW-JIGUGE-17029): Add U+9927 as a corresponding modern character.

diff --git a/lisp/utf-2000/ShuoWen-SR180.el b/lisp/utf-2000/ShuoWen-SR180.el
index a0b0f0a..3e47394 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR180.el
+++ b/lisp/utf-2000/ShuoWen-SR180.el
@@ -8,6 +8,8 @@
      ((=ucs              . #x29681)    ; 𩚁
       )
      ((=ucs              . #x98DF)     ; 食
+      )
+     ((=>ucs@iwds-1      . #x98DF)     ; &A-IWDSU+98DF;
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 16808)     ; &SW-JIGUGE5-16808;
@@ -769,6 +771,11 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x53E8)     ; 叨
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 17019)      ; &SW-JIGUGE-17019;
+      )
+     ((=ucs              . #x9955)     ; 饕
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 17020)     ; &SW-JIGUGE5-17020;
       )
@@ -780,6 +787,13 @@
     (=shuowen-jiguge   . 17021)        ; &SW-JIGUGE-17021;
     (<-Small-Seal@shuowen
      ((=ucs              . #x27210)    ; 𧈐
+      )
+     ((=ucs              . #x29782)    ; 𩞂
+      ))
+    (<-Zhouwen@shuowen
+     ((=shuowen-jiguge   . 17019)      ; &SW-JIGUGE-17019;
+      )
+     ((=ucs              . #x9955)     ; 饕
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 17021)     ; &SW-JIGUGE5-17021;
@@ -875,6 +889,8 @@
   '((shuowen-radical   . 180)  ; 食
     (=shuowen-jiguge   . 17029)        ; &SW-JIGUGE-17029;
     (<-Small-Seal@shuowen
+     ((=ucs              . #x9927)     ; 餧
+      )
      ((=ucs              . #x9912)     ; 餒
       ))
     (->subsumptive