Use `=>shuowen-jiguge' instead of `=shuowen-jiguge' as the CCS-feature
authorMORIOKA Tomohiko <tomo.git@chise.org>
Sat, 6 Aug 2022 22:03:05 +0000 (07:03 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Tue, 9 Aug 2022 01:15:59 +0000 (10:15 +0900)
of abstract character of Shuowen-Jiguge which has `->denotational' to
combine some Small-Seal glyphs.
(A-SW-JIGUGE-52101): Changed from SW-JIGUGE-52101; add `<-Small-Seal'
for U-00022053 and U-00020987.
(SW-JIGUGE-52101): Changed from R-SW-JIGUGE-52101; subsume
R-SW-JIGUGE-52101; add `<-ancient@shuowen' for SW-JIGUGE-52100.
(SW-JIGUGE4-50601): Add `<-ancient@shuowen' for SW-JIGUGE4-52100.

lisp/utf-2000/ShuoWen-SR540.el

index 8b94877..a7e6a72 100644 (file)
     ))
 (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-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-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)     ; 亥
+      ))
     ))