Use `=>shuowen-jiguge' instead of `=shuowen-jiguge' as the CCS-feature
authorMORIOKA Tomohiko <tomo.git@chise.org>
Sat, 2 Jul 2022 23:21:37 +0000 (08:21 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Tue, 5 Jul 2022 00:18:26 +0000 (09:18 +0900)
of abstract character of Shuowen-Jiguge which has `->denotational' to
combine some Small-Seal glyphs.
(SW-JIGUGE5-46915): Add U+9F05 as a corresponding modern character.
(SW-JIGUGE4-45915): Ditto.
(SW-JIGUGE-46916): Add U-00027332 and U+8718 as corresponding modern
characters.

lisp/utf-2000/ShuoWen-SR477.el

index 9ca3469..7905a82 100644 (file)
     ))
 (define-char
   '((shuowen-radical   . 477)  ; 黽
-    (=shuowen-jiguge   . 46915)        ; &SW-JIGUGE-46915;
+    (=>shuowen-jiguge  . 46915)        ; &A-SW-JIGUGE-46915;
+    (<-Small-Seal
+     ((=ucs              . #x4D79)     ; 䵹
+      )
+     ((=ucs              . #x9F05)     ; 鼅
+      ))
     ))
 (define-char
   '((<-denotational
-     ((=shuowen-jiguge   . 46915)      ; &SW-JIGUGE-46915;
+     ((=>shuowen-jiguge          . 46915)      ; &A-SW-JIGUGE-46915;
       ))
     (shuowen-radical   . 477)  ; 黽
     (===shuowen-jiguge5 . 46915)       ; &SW-JIGUGE5-46915;
     (<-Small-Seal@shuowen
      ((=ucs              . #x4D79)     ; 䵹
+      )
+     ((=ucs              . #x9F05)     ; 鼅
       ))
     ))
 (define-char
   '((<-denotational
-     ((=shuowen-jiguge   . 46915)      ; &SW-JIGUGE-46915;
+     ((=>shuowen-jiguge          . 46915)      ; &A-SW-JIGUGE-46915;
       ))
     (shuowen-radical   . 477)  ; 黽
     (===shuowen-jiguge4 . 45915)       ; &SW-JIGUGE4-45915;
     (<-Small-Seal@shuowen
      ((=ucs              . #x4D79)     ; 䵹
+      )
+     ((=ucs              . #x9F05)     ; 鼅
       ))
     ))
 (define-char
     (=shuowen-jiguge   . 46916)        ; &SW-JIGUGE-46916;
     (<-Small-Seal@shuowen
      ((=ucs              . #x27409)    ; 𧐉
+      )
+     ((=ucs              . #x27332)    ; 𧌲
+      )
+     ((=ucs              . #x8718)     ; 蜘
       ))
     (<-formed@shuowen
      ((===shuowen-jiguge5 . 46915)     ; &SW-JIGUGE5-46915;
      ((===shuowen-jiguge4 . 45915)     ; &SW-JIGUGE4-45915;
       )
      ((=ucs              . #x4D79)     ; 䵹
+      )
+     ((=ucs              . #x9F05)     ; 鼅
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 46916)     ; &SW-JIGUGE5-46916;