(U+3AAF): Add `<-denotational@usage' for BUCS+64E7; apply new

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

diff --git a/lisp/utf-2000/ShuoWen-SR540.el b/lisp/utf-2000/ShuoWen-SR540.el
index 59739cd..a7e6a72 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR540.el
+++ b/lisp/utf-2000/ShuoWen-SR540.el
@@ -12,25 +12,41 @@
     ))
 (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-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)     ; 亥
+      ))
     ))