(SW-JIGUGE-30400): Add U-00029B07 as a corresponding modern character.

(SW-JIGUGE-30401): Add U-00029816 as a corresponding modern character;
add `<-formed@shuowen' for SW-JIGUGE-30400.
(SW-JIGUGE-30402): Add `<-ancient@shuowen' for SW-JIGUGE-30400.

diff --git a/lisp/utf-2000/ShuoWen-SR334.el b/lisp/utf-2000/ShuoWen-SR334.el
index d27bf27..dcac548 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR334.el
+++ b/lisp/utf-2000/ShuoWen-SR334.el
@@ -18,6 +18,8 @@
      ((=ucs              . #x9AEE)     ; 髮
       )
      ((=ucs              . #x9AEA)     ; 髪
+      )
+     ((=ucs              . #x29B07)    ; 𩬇
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 30400)     ; &SW-JIGUGE5-30400;
@@ -29,8 +31,19 @@
   '((shuowen-radical   . 334)  ; 髟
     (=shuowen-jiguge   . 30401)        ; &SW-JIGUGE-30401;
     (<-Small-Seal@shuowen
+     ((=ucs              . #x29816)    ; 𩠖
+      )
      ((=ucs              . #x29819)    ; 𩠙
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 30400)      ; &SW-JIGUGE-30400;
+      )
+     ((=ucs              . #x9AEE)     ; 髮
+      )
+     ((=ucs              . #x9AEA)     ; 髪
+      )
+     ((=ucs              . #x29B07)    ; 𩬇
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 30401)     ; &SW-JIGUGE5-30401;
       )
@@ -43,6 +56,15 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x2945B)    ; 𩑛
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge   . 30400)      ; &SW-JIGUGE-30400;
+      )
+     ((=ucs              . #x9AEE)     ; 髮
+      )
+     ((=ucs              . #x9AEA)     ; 髪
+      )
+     ((=ucs              . #x29B07)    ; 𩬇
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 30402)     ; &SW-JIGUGE5-30402;
       )