(J0-6349): Add `<-vulgar' for J0-6348.

diff --git a/lisp/utf-2000/Ideograph-R113-Spirit.el b/lisp/utf-2000/Ideograph-R113-Spirit.el
index b656ec4..d905202 100644 (file)
--- a/lisp/utf-2000/Ideograph-R113-Spirit.el
+++ b/lisp/utf-2000/Ideograph-R113-Spirit.el
@@ -3302,6 +3302,15 @@
       (=gt-pj-1                  . #x6349)     ; &I-GT-31833; [67-41]
       (=shinjigen        .  5641)      ; &GT-31833;
       (=ucs@jis                  . #x7980)     ; &GT-31833;
+      (<-vulgar
+       ((=jis-x0208        . #x6348)   ; &GT-32415; [67-40]
+       (=ks-x1001          . #x7922)   ; &I-K0-7922; [89-02]
+       (=jis-x0213-1       . #x6348)   ; &I-JX1-6348; [67-40]
+       (=daikanwa          . 25127)    ; &I-M-25127;
+       (=shinjigen         .  5640)    ; &GT-32415;
+       ))
+      (<-vulgar*sources
+       shinjigen)
       )
      ((=gb2312           . #x5977)     ; &G0-5977; [57-87]
       (=ucs@unicode      . #x7980)     ; &G0-5977;
@@ -3312,6 +3321,7 @@
     (ideographic-strokes . 8)
     (total-strokes      . 13)
     (=ucs              . #x7981)       ; 禁
+    (=big5             . #xB854)       ; &I-B-B854;
     (->subsumptive
      ((=cns11643-1       . #x655B)     ; &M-24743; [69-59]
       (=daikanwa         . 24743)      ; &I-M-24743;
@@ -3320,7 +3330,6 @@
       (=gb2312           . #x3D7B)     ; &I-G0-3D7B; [29-91]
       (=ks-x1001         . #x5057)     ; &I-K0-5057; [48-55]
       (=jis-x0213-1      . #x3658)     ; &I-JX1-3658; [22-56]
-      (=big5             . #xB854)     ; &I-B-B854;
       (=gt               . 31785)      ; &I-GT-31785;
       (=gt-k             . 10195)      ; &I-GT-K10195;
       (=gt-pj-1                  . #x3658)     ; &I-GT-31785; [22-56]