From: tomo <tomo>
Date: Tue, 19 May 2009 15:14:18 +0000 (+0000)
Subject: (J0-6349): Add `<-vulgar' for J0-6348.
X-Git-Tag: r21-4-21-chise-0_24-12^20~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=06d10e3636f229becba47cb6a3050ed6ab542492;p=chise%2Fxemacs-chise.git

(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
--- 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]