From 5a0f9da2c605c54bd41f41167205d549bec86a0e Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 18 Dec 2022 14:44:04 +0900
Subject: [PATCH] (SW-JIGUGE-29103): Add U+770E as a corresponding modern
 character; add `<-ancient@shuowen' for SW-JIGUGE-29102.
 (SW-JIGUGE-29104): Add `<-ancient@shuowen' for
 SW-JIGUGE-29102.

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

diff --git a/lisp/utf-2000/ShuoWen-SR318.el b/lisp/utf-2000/ShuoWen-SR318.el
index db51551..f7b4937 100644
--- a/lisp/utf-2000/ShuoWen-SR318.el
+++ b/lisp/utf-2000/ShuoWen-SR318.el
@@ -32,6 +32,13 @@
     (=shuowen-jiguge	. 29103)	; &SW-JIGUGE-29103;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x25119)	; 𥄙
+      )
+     ((=ucs		  . #x770E)	; 眎
+      ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 29102)	; &SW-JIGUGE-29102;
+      )
+     ((=ucs		  . #x8996)	; 視
       ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 29603)	; &SW-JIGUGE30-29603;
@@ -47,6 +54,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x7721)	; 眡
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 29102)	; &SW-JIGUGE-29102;
+      )
+     ((=ucs		  . #x8996)	; 視
+      ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 29604)	; &SW-JIGUGE30-29604;
       )
-- 
1.7.10.4