From 52fd73b198487310c1b7cbdf05cc6e9173a38297 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 6 Jan 2023 18:58:43 +0900
Subject: [PATCH] (SW-JIGUGE-32200): Add `<-ancient@shuowen' for
 SW-JIGUGE-32120. (SW-JIGUGE-32201): Add U+514F as a
 corresponding modern character; add `<-ancient@shuowen' for
 SW-JIGUGE-32120.

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

diff --git a/lisp/utf-2000/ShuoWen-SR358.el b/lisp/utf-2000/ShuoWen-SR358.el
index 9e48d6c..e3471bd 100644
--- a/lisp/utf-2000/ShuoWen-SR358.el
+++ b/lisp/utf-2000/ShuoWen-SR358.el
@@ -21,6 +21,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x20477)	; 𠑷
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 32120)	; &SW-JIGUGE-32120;
+      )
+     ((=ucs		  . #x9577)	; 長
+      ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 33200)	; &SW-JIGUGE30-33200;
       )
@@ -34,6 +39,13 @@
     (=shuowen-jiguge	. 32201)	; &SW-JIGUGE-32201;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x2050A)	; 𠔊
+      )
+     ((=ucs		  . #x514F)	; 兏
+      ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 32120)	; &SW-JIGUGE-32120;
+      )
+     ((=ucs		  . #x9577)	; 長
       ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 33201)	; &SW-JIGUGE30-33201;
-- 
1.7.10.4