Add `===shuowen-jiguge-A30' characters.

[chise/xemacs-chise.git] / lisp / utf-2000 / ShuoWen-SR031.el

diff --git a/lisp/utf-2000/ShuoWen-SR031.el b/lisp/utf-2000/ShuoWen-SR031.el
index 67821c8..338e33d 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR031.el
+++ b/lisp/utf-2000/ShuoWen-SR031.el
@@ -1,23 +1,28 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((shuowen-radical   . 31)   ; 正
-    (=shuowen-jiguge   . 05004)        ; &SW-JIGUGE-05004;
-    (<-Small-Seal@shuowen
+    (=>shuowen-jiguge  . 05004)        ; &A-SW-JIGUGE-05004;
+    (<-Small-Seal
      ((=ucs              . #x6B63)     ; 正
       ))
     ))
 (define-char
   '((<-denotational
-     ((=shuowen-jiguge   . 05004)      ; &SW-JIGUGE-05004;
+     ((=>shuowen-jiguge          . 05004)      ; &A-SW-JIGUGE-05004;
       ))
-    (===shuowen-jiguge5 . 05004)       ; &SW-JIGUGE5-05004;
+    (=shuowen-jiguge   . 05004)        ; &SW-JIGUGE-05004;
     (<-Small-Seal@shuowen
      ((=ucs              . #x6B63)     ; 正
       ))
+    (->subsumptive
+     ((===shuowen-jiguge-A30 . 04904)  ; &SW-JIGUGE30-04904;
+      )
+     ((===shuowen-jiguge5 . 05004)     ; &SW-JIGUGE5-05004;
+      ))
     ))
 (define-char
   '((<-denotational
-     ((=shuowen-jiguge   . 05004)      ; &SW-JIGUGE-05004;
+     ((=>shuowen-jiguge          . 05004)      ; &A-SW-JIGUGE-05004;
       ))
     (===shuowen-jiguge4 . 04904)       ; &SW-JIGUGE4-04904;
     (<-Small-Seal@shuowen
@@ -30,7 +35,16 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x3C4F)     ; 㱏
       ))
+    (<-ancient@shuowen
+     ((===shuowen-jiguge4 . 04904)     ; &SW-JIGUGE4-04904;
+      )
+     ((=shuowen-jiguge   . 05004)      ; &SW-JIGUGE-05004;
+      )
+     ((=ucs              . #x6B63)     ; 正
+      ))
     (->subsumptive
+     ((===shuowen-jiguge-A30 . 04905)  ; &SW-JIGUGE30-04905;
+      )
      ((===shuowen-jiguge5 . 05005)     ; &SW-JIGUGE5-05005;
       )
      ((===shuowen-jiguge4 . 04905)     ; &SW-JIGUGE4-04905;
@@ -41,8 +55,19 @@
     (=shuowen-jiguge   . 05006)        ; &SW-JIGUGE-05006;
     (<-Small-Seal@shuowen
      ((=ucs              . #x27FB8)    ; 𧾸
+      )
+     ((=ucs              . #x23954)    ; 𣥔
+      ))
+    (<-ancient@shuowen
+     ((===shuowen-jiguge4 . 04904)     ; &SW-JIGUGE4-04904;
+      )
+     ((=shuowen-jiguge   . 05004)      ; &SW-JIGUGE-05004;
+      )
+     ((=ucs              . #x6B63)     ; 正
       ))
     (->subsumptive
+     ((===shuowen-jiguge-A30 . 04906)  ; &SW-JIGUGE30-04906;
+      )
      ((===shuowen-jiguge5 . 05006)     ; &SW-JIGUGE5-05006;
       )
      ((===shuowen-jiguge4 . 04906)     ; &SW-JIGUGE4-04906;
@@ -57,6 +82,8 @@
      ((=ucs              . #x4E4F)     ; 乏
       ))
     (->subsumptive
+     ((===shuowen-jiguge-A30 . 04907)  ; &SW-JIGUGE30-04907;
+      )
      ((===shuowen-jiguge5 . 05007)     ; &SW-JIGUGE5-05007;
       )
      ((===shuowen-jiguge4 . 04907)     ; &SW-JIGUGE4-04907;