From ae4486ebb67011060ed38acaef55b82cd66d1ea6 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 2 Aug 2021 12:20:04 +0900
Subject: [PATCH] (SW-JIGUGE-22403): Add `<-ancient@shuowen' for
 SW-JIGUGE-22402. (SW-JIGUGE-22415): Add U+3B1C as a
 corresponding modern character. (SW-JIGUGE-22502): Add
 U-00023166 as a corresponding modern character.
 (SW-JIGUGE-22503): Add A-IWDSU+665A and U+665A as
 corresponding modern characters.

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

diff --git a/lisp/utf-2000/ShuoWen-SR231.el b/lisp/utf-2000/ShuoWen-SR231.el
index ff69567..aace72a 100644
--- a/lisp/utf-2000/ShuoWen-SR231.el
+++ b/lisp/utf-2000/ShuoWen-SR231.el
@@ -53,6 +53,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x65F9)	; 旹
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 22402)	; &SW-JIGUGE-22402;
+      )
+     ((=ucs		  . #x6642)	; 時
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 22403)	; &SW-JIGUGE5-22403;
       )
@@ -199,6 +204,8 @@
   '((shuowen-radical	. 231)	; 日
     (=shuowen-jiguge	. 22415)	; &SW-JIGUGE-22415;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x3B1C)	; 㬜
+      )
      ((=ucs		  . #x6649)	; 晉
       )
      ((=ucs		  . #x664B)	; 晋
@@ -397,6 +404,8 @@
   '((shuowen-radical	. 231)	; 日
     (=shuowen-jiguge	. 22502)	; &SW-JIGUGE-22502;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x23166)	; 𣅦
+      )
      ((=ucs		  . #x6603)	; 昃
       ))
     (->subsumptive
@@ -409,6 +418,11 @@
   '((shuowen-radical	. 231)	; 日
     (=shuowen-jiguge	. 22503)	; &SW-JIGUGE-22503;
     (<-Small-Seal@shuowen
+     ((=>ucs@iwds-1	  . #x665A)	; &J97-4855;
+      (=>jis-x0208@1997	  . #x4855)	; &J97-4855; [40-53]
+      )
+     ((=ucs		  . #x665A)	; 晚
+      )
      ((=ucs		  . #x6669)	; 晩
       ))
     (->subsumptive
-- 
1.7.10.4