Use `=>shuowen-jiguge' instead of `=shuowen-jiguge' as the CCS-feature
authorMORIOKA Tomohiko <tomo.git@chise.org>
Mon, 20 Jun 2022 08:06:59 +0000 (17:06 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Wed, 22 Jun 2022 00:46:53 +0000 (09:46 +0900)
of abstract character of Shuowen-Jiguge which has `->denotational' to
combine some Small-Seal glyphs.

lisp/utf-2000/ShuoWen-SR031.el

index 67821c8..832aea3 100644 (file)
@@ -1,14 +1,14 @@
 ;; -*- 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;
     (<-Small-Seal@shuowen
@@ -17,7 +17,7 @@
     ))
 (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