From 183217ae047a086e4863ff1e765dd9ef36a4d65e Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 24 Jun 2021 22:49:11 +0900
Subject: [PATCH] (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.

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

diff --git a/lisp/utf-2000/ShuoWen-SR180.el b/lisp/utf-2000/ShuoWen-SR180.el
index a0b0f0a..3e47394 100644
--- 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
-- 
1.7.10.4