From 3f4e42cd4095462c92e0e86e00b20bbf9b97495b Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 20 Jun 2022 16:34:29 +0900
Subject: [PATCH] Add some HDIC-KTB's Small-Seal glyphs.

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

diff --git a/lisp/utf-2000/ShuoWen-SR001.el b/lisp/utf-2000/ShuoWen-SR001.el
index d074546..7f76918 100644
--- a/lisp/utf-2000/ShuoWen-SR001.el
+++ b/lisp/utf-2000/ShuoWen-SR001.el
@@ -13,6 +13,16 @@
     ))
 (define-char
   '((shuowen-radical	. 1)	; 一
+    (=>shuowen-jiguge	. 00200)	; &A-SW-JIGUGE-00200;
+    (<-Small-Seal
+     ((=ucs		  . #x5F0C)	; 弌
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge	  . 00200)	; &A-SW-JIGUGE-00200;
+      ))
+    (shuowen-radical	. 1)	; 一
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
       (=ucs		  . #x2FF9)	; ⿹
@@ -32,7 +42,25 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>shuowen-jiguge	  . 00200)	; &A-SW-JIGUGE-00200;
+      ))
+    (shuowen-radical	. 1)	; 一
+    (=hdic-ktb-seal-glyph-id . T1_016_A51)
+    (===chise-hdic-ktb-seal . #x0100)	; &R-CHISE-HDIC-KTBS0100;
+    ))
+(define-char
   '((shuowen-radical	. 1)	; 一
+    (=>shuowen-jiguge	. 00201)	; &A-SW-JIGUGE-00201;
+    (<-Small-Seal
+     ((=ucs		  . #x5143)	; 元
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge	  . 00201)	; &A-SW-JIGUGE-00201;
+      ))
+    (shuowen-radical	. 1)	; 一
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -52,7 +80,33 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>shuowen-jiguge	  . 00201)	; &A-SW-JIGUGE-00201;
+      ))
+    (shuowen-radical	. 1)	; 一
+    (=hdic-ktb-seal-glyph-id . T1_016_A61)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=shuowen-jiguge	  . 00100)	; &SW-JIGUGE-00100;
+      )
+     ((=shuowen-jiguge	  . 28901)	; &SW-JIGUGE-28901;
+      ))
+    (===chise-hdic-ktb-seal . #x0102)	; &R-CHISE-HDIC-KTBS0102;
+    ))
+(define-char
   '((shuowen-radical	. 1)	; 一
+    (=>shuowen-jiguge	. 00202)	; &A-SW-JIGUGE-00202;
+    (<-Small-Seal
+     ((=ucs		  . #x5929)	; 天
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge	  . 00202)	; &A-SW-JIGUGE-00202;
+      ))
+    (shuowen-radical	. 1)	; 一
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -72,6 +126,17 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>shuowen-jiguge	  . 00202)	; &A-SW-JIGUGE-00202;
+      ))
+    (shuowen-radical	. 1)	; 一
+    (=hdic-ktb-seal-glyph-id . T1_016_A53)
+    (===chise-hdic-ktb-seal . #x0101)	; &R-CHISE-HDIC-KTBS0101;
+    (<-Small-Seal@tenrei-bansho-meigi/chise
+     ((=ucs		  . #x2CEC3)	; 𬻃
+      ))
+    ))
+(define-char
   '((shuowen-radical	. 1)	; 一
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE")
@@ -89,10 +154,25 @@
      ((===shuowen-jiguge5 . 00203)	; &SW-JIGUGE5-00203;
       )
      ((===shuowen-jiguge4 . 00203)	; &SW-JIGUGE4-00203;
+      )
+     ((=hdic-ktb-seal-glyph-id . T1_016_A62)
+      (===chise-hdic-ktb-seal . #x0103)	; &R-CHISE-HDIC-KTBS0103;
       ))
     ))
 (define-char
   '((shuowen-radical	. 1)	; 一
+    (=>shuowen-jiguge	. 00204)	; &A-SW-JIGUGE-00204;
+    (<-Small-Seal
+     ((=ucs		  . #x53D3)	; 叓
+      )
+     ((=ucs		  . #x540F)	; 吏
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge	  . 00204)	; &A-SW-JIGUGE-00204;
+      ))
+    (shuowen-radical	. 1)	; 一
     (ideographic-structure
      ((name		  . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
       (=ucs		  . #x2FFB)	; â¿»
@@ -113,3 +193,11 @@
      ((===shuowen-jiguge4 . 00204)	; &SW-JIGUGE4-00204;
       ))
     ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge	  . 00204)	; &A-SW-JIGUGE-00204;
+      ))
+    (shuowen-radical	. 1)	; 一
+    (=hdic-ktb-seal-glyph-id . T1_016_B11)
+    (===chise-hdic-ktb-seal . #x0104)	; &R-CHISE-HDIC-KTBS0104;
+    ))
-- 
1.7.10.4