From 6267939c5b9e6587cc067562e3464126c7ddc854 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 20 Aug 2021 23:24:38 +0900
Subject: [PATCH] (SW-JIGUGE-26919): Add U+3474 as a corresponding modern
 character. (SW-JIGUGE-27019): Add U+345E-itaiji-001 as a
 corresponding modern character. (SW-JIGUGE-27203): Add
 `<-ancient@shuowen' for SW-JIGUGE-27202.

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

diff --git a/lisp/utf-2000/ShuoWen-SR287.el b/lisp/utf-2000/ShuoWen-SR287.el
index 98f1312..d04367c 100644
--- a/lisp/utf-2000/ShuoWen-SR287.el
+++ b/lisp/utf-2000/ShuoWen-SR287.el
@@ -1699,6 +1699,8 @@
   '((shuowen-radical	. 287)	; 人
     (=shuowen-jiguge	. 26919)	; &SW-JIGUGE-26919;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x3474)	; 㑴
+      )
      ((=ucs		  . #x4FB5)	; ä¾µ
       ))
     (->subsumptive
@@ -2065,6 +2067,8 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x345E)	; 㑞
       )
+     ((=ucs-itaiji-001	  . #x345E)	; &U-i001+345E;
+      )
      ((=ucs		  . #x2022A)	; 𠈪
       ))
     (->subsumptive
@@ -2573,6 +2577,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x3444)	; 㑄
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 27202)	; &SW-JIGUGE-27202;
+      )
+     ((=ucs		  . #x4FAE)	; ä¾®
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 27203)	; &SW-JIGUGE5-27203;
       )
-- 
1.7.10.4