X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FShuoWen-SR540.el;h=0276e58680517fa47e33d64cc17029e4ac39660a;hb=ed7b30903dc29a7c6fcb98bed288f4c944ac14e3;hp=59739cd3beb9502d3b5c6afe9ca86729fdc53873;hpb=6e8ff8fb936a8494645a203999a72174b70b093d;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/ShuoWen-SR540.el b/lisp/utf-2000/ShuoWen-SR540.el
index 59739cd..0276e58 100644
--- a/lisp/utf-2000/ShuoWen-SR540.el
+++ b/lisp/utf-2000/ShuoWen-SR540.el
@@ -5,6 +5,8 @@
      ((=ucs		  . #x4EA5)	; 亥
       ))
     (->subsumptive
+     ((===shuowen-jiguge-A30 . 52500)	; &SW-JIGUGE30-52500;
+      )
      ((===shuowen-jiguge5 . 52100)	; &SW-JIGUGE5-52100;
       )
      ((===shuowen-jiguge4 . 50600)	; &SW-JIGUGE4-50600;
@@ -12,25 +14,43 @@
     ))
 (define-char
   '((shuowen-radical	. 540)	; 亥
-    (=shuowen-jiguge	. 52101)	; &SW-JIGUGE-52101;
+    (=>shuowen-jiguge	. 52101)	; &A-SW-JIGUGE-52101;
+    (<-Small-Seal
+     ((=ucs		  . #x22053)	; 𢁓
+      )
+     ((=ucs		  . #x20987)	; 𠦇
+      ))
     ))
 (define-char
   '((<-denotational
-     ((shuowen-radical	. 540)	; 亥
-      (=shuowen-jiguge	  . 52101)	; &SW-JIGUGE-52101;
+     ((=>shuowen-jiguge	  . 52101)	; &A-SW-JIGUGE-52101;
       ))
-    (===shuowen-jiguge5 . 52101)	; &SW-JIGUGE5-52101;
+    (=shuowen-jiguge	. 52101)	; &SW-JIGUGE-52101;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x20987)	; 𠦇
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 52100)	; &SW-JIGUGE-52100;
+      )
+     ((=ucs		  . #x4EA5)	; 亥
+      ))
+    (->subsumptive
+     ((===shuowen-jiguge-A30 . 52501)	; &SW-JIGUGE30-52501;
+      )
+     ((===shuowen-jiguge5 . 52101)	; &SW-JIGUGE5-52101;
+      ))
     ))
 (define-char
   '((<-denotational
-     ((shuowen-radical	. 540)	; 亥
-      (=shuowen-jiguge	  . 52101)	; &SW-JIGUGE-52101;
+     ((=>shuowen-jiguge	  . 52101)	; &A-SW-JIGUGE-52101;
       ))
     (===shuowen-jiguge4 . 50601)	; &SW-JIGUGE4-50601;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x22053)	; 𢁓
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 52100)	; &SW-JIGUGE-52100;
+      )
+     ((=ucs		  . #x4EA5)	; 亥
+      ))
     ))