From c2120bf45a52eefc7fd89b4e2317cfc5ed947c0b Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 16 Apr 2004 18:53:02 +0000
Subject: [PATCH] Rename `<-vulgar-ideograph' to `<-vulgar'.

---
 lisp/utf-2000/Ideograph-R001-One.el            |   16 ++++++++--------
 lisp/utf-2000/Ideograph-R004-Slash.el          |    6 +++---
 lisp/utf-2000/Ideograph-R005-Second.el         |    4 ++--
 lisp/utf-2000/Ideograph-R006-Hook.el           |    4 ++--
 lisp/utf-2000/Ideograph-R008-Lid.el            |    8 ++++----
 lisp/utf-2000/Ideograph-R009-Man.el            |    8 ++++----
 lisp/utf-2000/Ideograph-R012-Eight.el          |    4 ++--
 lisp/utf-2000/Ideograph-R013-Down-Box.el       |    6 +++---
 lisp/utf-2000/Ideograph-R014-Cover.el          |    4 ++--
 lisp/utf-2000/Ideograph-R015-Ice.el            |   16 ++++++++--------
 lisp/utf-2000/Ideograph-R016-Table.el          |    4 ++--
 lisp/utf-2000/Ideograph-R017-Open-Box.el       |    2 +-
 lisp/utf-2000/Ideograph-R018-Knife.el          |   14 +++++++-------
 lisp/utf-2000/Ideograph-R019-Power.el          |   20 ++++++++++----------
 lisp/utf-2000/Ideograph-R020-Wrap.el           |    2 +-
 lisp/utf-2000/Ideograph-R022-Right-Open-Box.el |    6 +++---
 lisp/utf-2000/Ideograph-R024-Ten.el            |   14 +++++++-------
 lisp/utf-2000/Ideograph-R026-Seal.el           |   10 +++++-----
 lisp/utf-2000/Ideograph-R027-Cliff.el          |   16 ++++++++--------
 lisp/utf-2000/Ideograph-R028-Private.el        |    2 +-
 lisp/utf-2000/Ideograph-R029-Again.el          |   12 ++++++------
 lisp/utf-2000/Ideograph-R030-Mouth.el          |    4 ++--
 lisp/utf-2000/Ideograph-R036-Evening.el        |   10 +++++-----
 lisp/utf-2000/Ideograph-R037-Big.el            |    6 +++---
 lisp/utf-2000/Ideograph-R038-Woman.el          |    2 +-
 lisp/utf-2000/Ideograph-R040-Roof.el           |    2 +-
 lisp/utf-2000/Ideograph-R044-Corpse.el         |    4 ++--
 lisp/utf-2000/Ideograph-R053-Dotted-Cliff.el   |    6 +++---
 lisp/utf-2000/Ideograph-R058-Snout.el          |    6 +++---
 lisp/utf-2000/Ideograph-R061-Heart.el          |    4 ++--
 lisp/utf-2000/Ideograph-R072-Sun.el            |    8 ++++----
 lisp/utf-2000/Ideograph-R075-Tree.el           |   10 +++++-----
 lisp/utf-2000/Ideograph-R079-Weapon.el         |    4 ++--
 lisp/utf-2000/Ideograph-R085-Water.el          |    6 +++---
 lisp/utf-2000/Ideograph-R086-Fire.el           |    8 ++++----
 lisp/utf-2000/Ideograph-R096-Jade.el           |    2 +-
 lisp/utf-2000/Ideograph-R106-White.el          |    4 ++--
 lisp/utf-2000/Ideograph-R112-Stone.el          |    4 ++--
 lisp/utf-2000/Ideograph-R113-Spirit.el         |    8 ++++----
 lisp/utf-2000/Ideograph-R118-Bamboo.el         |    4 ++--
 lisp/utf-2000/Ideograph-R135-Tongue.el         |    2 +-
 lisp/utf-2000/Ideograph-R140-Grass.el          |    4 ++--
 lisp/utf-2000/Ideograph-R165-Distinguish.el    |    4 ++--
 lisp/utf-2000/Ideograph-R177-Leather.el        |    2 +-
 lisp/utf-2000/Ideograph-R189-Tall.el           |    2 +-
 lisp/utf-2000/Ideograph-R205-Frog.el           |    4 ++--
 lisp/utf-2000/Ideograph-R213-Turtle.el         |    4 ++--
 47 files changed, 151 insertions(+), 151 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index f175c1e..bbca7e3 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -624,7 +624,7 @@
      ((<-simplified@CN
        ((=gb12345	    . #x3373)	; &UU+919C;
 	))
-      (<-vulgar-ideograph
+      (<-vulgar
        ((=daikanwa	    . 00023)	; &I-M-00023;
 	))
       (shinjigen-1	  . 17)
@@ -663,15 +663,15 @@
   '((ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 3)
     (total-strokes	 . 4)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=ucs		  . #x4E08)	; 丈
       ))
     (=ucs		. #x2000B)	; 𠀋
     (->subsumptive
-     ((<-vulgar-ideograph
+     ((<-vulgar
        ((=daikanwa	    . 00011)	; &I-M-00011;
 	))
-      (<-vulgar-ideograph*sources
+      (<-vulgar*sources
        daikanwa)
       (ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
@@ -690,11 +690,11 @@
       (=daikanwa	  . 00026)	; &I-M-00026;
       (=ucs@jis		  . #x2000B)	; &GT-00031;
       )
-     ((<-vulgar-ideograph
+     ((<-vulgar
        ((shinjigen-1	    . 9)
 	(=jis-x0208-1990    . #x3E66)	; &I-J90-3E66;
 	))
-      (<-vulgar-ideograph*sources
+      (<-vulgar*sources
        shinjigen-1)
       (hanyu-dazidian	  1 12 5)
       (ideographic-structure
@@ -755,11 +755,11 @@
     (ideographic-radical@daikanwa . 1)	; ⼀
     (ideographic-strokes@daikanwa . 3)
     (total-strokes	 . 4)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 491)
       (=daikanwa	  . 01455)	; &I-M-01455;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa shinjigen-1)
     (hanyu-dazidian	1 241 5)
     (shinjigen-1	. 492)
diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index df91c15..7858491 100644
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -271,7 +271,7 @@
   '((ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 2)
     (total-strokes	 . 3)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((shinjigen-1	     . 47)
 		 (=daikanwa	     . 00118)	; &I-M-00118;
 		 )
@@ -356,10 +356,10 @@
     ))
 (define-char
   '((total-strokes	 . 3)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 01739)	; &I-M-01739;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      zhengzi-tong daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
diff --git a/lisp/utf-2000/Ideograph-R005-Second.el b/lisp/utf-2000/Ideograph-R005-Second.el
index 5cf7871..387fabd 100644
--- a/lisp/utf-2000/Ideograph-R005-Second.el
+++ b/lisp/utf-2000/Ideograph-R005-Second.el
@@ -1885,11 +1885,11 @@
     (ideographic-radical@cns*sources
      shinjigen-1 cns11643 gt)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((ideographic-radical . 213)	; ⿔
       (=daikanwa	  . 48847)	; &I-M-48847;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa)
     (hanyu-dazidian	8 10 19)
     (ideographic-structure
diff --git a/lisp/utf-2000/Ideograph-R006-Hook.el b/lisp/utf-2000/Ideograph-R006-Hook.el
index fd94819..e5703cd 100644
--- a/lisp/utf-2000/Ideograph-R006-Hook.el
+++ b/lisp/utf-2000/Ideograph-R006-Hook.el
@@ -355,11 +355,11 @@
     (ideographic-radical . 6)	; ⼅
     (ideographic-strokes . 6)
     (total-strokes	 . 7)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 69)
       (=daikanwa	  . 00241)	; &I-M-00241;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (shinjigen-1	. 71)
     (shinjigen-2	. 71)
diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index 2fb61eb..5fe307a 100644
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -1081,11 +1081,11 @@
     (sound@ja/on/go	"kyAu")
     (=ucs		. #x4EB0)	; 亰
     (->subsumptive
-     ((<-vulgar-ideograph
+     ((<-vulgar
        ((shinjigen-1	    . 102)
 	(=daikanwa	    . 00299)	; &I-M-00299;
 	))
-      (<-vulgar-ideograph*sources
+      (<-vulgar*sources
        shinjigen-1)
       (ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -1402,7 +1402,7 @@
     (ideographic-radical . 8)	; ⼇
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(seiji-tsuu morohashi-daikanwa shinjigen-1)
       :char	((shinjigen-1	     . 104)
 		 (=daikanwa	     . 00303)	; &I-M-00303;
@@ -1461,7 +1461,7 @@
     (ideographic-radical . 8)	; ⼇
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(morohashi-daikanwa shinjigen-1)
       :char	((shinjigen-1	     . 106)
 		 (=daikanwa	     . 00304)	; &I-M-00304;
diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index f1cb6db..5c893a1 100644
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -771,7 +771,7 @@
     (ideographic-radical@cns*sources
      cns11643-3 daikanwa)
     (total-strokes	 . 4)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=ucs		  . #x5167)	; 內
       ))
     (=ucs		. #x5185)	; 内
@@ -1876,11 +1876,11 @@
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 4)
     (total-strokes	 . 6)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 144)
       (=daikanwa	  . 00398)	; &I-M-00398;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (hanyu-dazidian	1 124 5)
     (ideographic-structure
@@ -10797,7 +10797,7 @@
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((shinjigen-1	     . 487)
 		 (=daikanwa	     . 01437)	; &I-M-01437;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R012-Eight.el b/lisp/utf-2000/Ideograph-R012-Eight.el
index 4891ff7..a1a8b69 100644
--- a/lisp/utf-2000/Ideograph-R012-Eight.el
+++ b/lisp/utf-2000/Ideograph-R012-Eight.el
@@ -264,11 +264,11 @@
     (ideographic-radical@daikanwa . 1)	; ⼀
     (ideographic-strokes@daikanwa . 3)
     (total-strokes	 . 4)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 491)
       (=daikanwa	  . 01455)	; &I-M-01455;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa shinjigen-1)
     (hanyu-dazidian	1 241 5)
     (shinjigen-1	. 492)
diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index d1ada89..0b4e63d 100644
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -116,7 +116,7 @@
     (ideographic-radical@cns*sources
      cns11643-3 daikanwa)
     (total-strokes	 . 4)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=ucs		  . #x5167)	; 內
       ))
     (=ucs		. #x5185)	; 内
@@ -128,10 +128,10 @@
     (<-denotational
      ((=ucs		  . #x5185)	; 内
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 01418)	; &I-M-01418;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa)
     (=cns11643-6	. #x2150)	; &M-01512;
     (=daikanwa		. 01512)	; &I-M-01512;
diff --git a/lisp/utf-2000/Ideograph-R014-Cover.el b/lisp/utf-2000/Ideograph-R014-Cover.el
index 29988a0..ab3b9e7 100644
--- a/lisp/utf-2000/Ideograph-R014-Cover.el
+++ b/lisp/utf-2000/Ideograph-R014-Cover.el
@@ -45,7 +45,7 @@
     (ideographic-radical . 14)	; ⼍
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((shinjigen-1	     . 525)
 		 (=daikanwa	     . 01566)	; &I-M-01566;
 		 )
@@ -672,7 +672,7 @@
   '((ideographic-radical . 14)	; ⼍
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 1852)
 		 (=daikanwa	     . 07230)	; &I-M-07230;
diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index 5dccaf8..5a5335e 100644
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -199,7 +199,7 @@
   '((ideographic-radical . 15)	; ⼎
     (ideographic-strokes . 4)
     (total-strokes	 . 6)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 542)
 		 (=daikanwa	     . 01613)	; &I-M-01613;
@@ -269,7 +269,7 @@
   '((ideographic-radical . 15)	; ⼎
     (ideographic-strokes . 4)
     (total-strokes	 . 6)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(gyokuhen morohashi-daikanwa shinjigen-1)
       :char	((shinjigen-1	     . 4092)
 		 (=daikanwa	     . 17209)	; &I-M-17209;
@@ -300,7 +300,7 @@
   '((ideographic-radical . 15)	; ⼎
     (ideographic-strokes . 4)
     (total-strokes	 . 6)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(gyokuhen morohashi-daikanwa shinjigen-1)
       :char	((shinjigen-1	     . 4080)
 		 (=daikanwa	     . 17174)	; &I-M-17174;
@@ -371,7 +371,7 @@
   '((ideographic-radical . 15)	; ⼎
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(gyokuhen kangxi morohashi-daikanwa shinjigen-1)
       :char	((shinjigen-1	     . 4122)
 		 (=daikanwa	     . 17264)	; &I-M-17264;
@@ -1227,7 +1227,7 @@
     (ideographic-radical . 15)	; ⼎
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((ideographic-radical . 85)	; ⽔
 		 (shinjigen-1	     . 4308)
@@ -1918,7 +1918,7 @@
     (ideographic-radical . 15)	; ⼎
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((shinjigen-1	     . 4378)
 		 (=daikanwa	     . 17934)	; &I-M-17934;
 		 )
@@ -2386,11 +2386,11 @@
     (ideographic-radical . 15)	; ⼎
     (ideographic-strokes . 13)
     (total-strokes	 . 15)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 561)
       (=daikanwa	  . 01717)	; &I-M-01717;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      pianhai daikanwa shinjigen-1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
diff --git a/lisp/utf-2000/Ideograph-R016-Table.el b/lisp/utf-2000/Ideograph-R016-Table.el
index acdbde8..3c4abf5 100644
--- a/lisp/utf-2000/Ideograph-R016-Table.el
+++ b/lisp/utf-2000/Ideograph-R016-Table.el
@@ -122,10 +122,10 @@
     ))
 (define-char
   '((total-strokes	 . 3)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 01739)	; &I-M-01739;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      zhengzi-tong daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index 8b9584e..2f602eb 100644
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -501,7 +501,7 @@
   '((ideographic-radical . 17)	; ⼐
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 584)
 		 (=daikanwa	     . 01826)	; &I-M-01826;
diff --git a/lisp/utf-2000/Ideograph-R018-Knife.el b/lisp/utf-2000/Ideograph-R018-Knife.el
index 35f51aa..6904e8e 100644
--- a/lisp/utf-2000/Ideograph-R018-Knife.el
+++ b/lisp/utf-2000/Ideograph-R018-Knife.el
@@ -1667,7 +1667,7 @@
   '((ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 709)
 		 (=daikanwa	     . 02316)	; &I-M-02316;
@@ -1694,7 +1694,7 @@
   '((ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 709)
 		 (=daikanwa	     . 02316)	; &I-M-02316;
@@ -3624,7 +3624,7 @@
     (ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(seiji-tsuu morohashi-daikanwa)
       :char	((=daikanwa	     . 01953)	; &I-M-01953;
 		 )
@@ -3649,7 +3649,7 @@
     (ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 634)
 		 (=jis-x0212	     . #x333A)	; &JSP-333A;
@@ -4015,7 +4015,7 @@
   '((ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 634)
 		 (=jis-x0212	     . #x333A)	; &JSP-333A;
@@ -4686,7 +4686,7 @@
   '((ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 666)
 		 (=daikanwa	     . 02049)	; &I-M-02049;
@@ -7980,7 +7980,7 @@
     (ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 14)
     (total-strokes	 . 16)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((shinjigen-1	     . 653)
 		 (=daikanwa	     . 02228)	; &I-M-02228;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 822b880..cbc43af 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -1000,12 +1000,12 @@
       (=ks-x1001	  . #x7C79)	; &I-K0-7C79;
       (=daikanwa	  . 13186)	; &I-M-13186;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((ideographic-radical . 66)	; ⽁
       (shinjigen-1	  . 725)
       (=daikanwa	  . 13186)	; &I-M-13186;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      yupian zhengyun zhengzi-tong daikanwa shinjigen-1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -1469,10 +1469,10 @@
      ((=ucs		  . #x6555)	; 敕
       (=jis-x0208	  . #x5A45)	; &I-J90-5A45;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 02380)	; &I-M-02380;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      zhengzi-tong daikanwa)
     (hanyu-dazidian	1 371 2)
     (ideographic-structure
@@ -1621,11 +1621,11 @@
     (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 731)
       (=daikanwa	  . 02360)	; &I-M-02360;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa shinjigen-1)
     (shinjigen-1	. 730)
     (shinjigen-2	. 730)
@@ -2301,11 +2301,11 @@
     (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 740)
       (=daikanwa	  . 02391)	; &I-M-02391;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa shinjigen-1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -2809,11 +2809,11 @@
       ))
     (<-simplified@JP/Jouyou*sources
      daikanwa JP/Jouyou)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 744)
       (=daikanwa	  . 02424)	; &I-M-02424;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (shinjigen-1	. 743)
     (shinjigen-2	. 743)
diff --git a/lisp/utf-2000/Ideograph-R020-Wrap.el b/lisp/utf-2000/Ideograph-R020-Wrap.el
index 2308e72..aebd7d3 100644
--- a/lisp/utf-2000/Ideograph-R020-Wrap.el
+++ b/lisp/utf-2000/Ideograph-R020-Wrap.el
@@ -94,7 +94,7 @@
     (ideographic-radical . 20)	; ⼓
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(seiji-tsuu morohashi-daikanwa shinjigen-1)
       :char	((shinjigen-1	     . 764)
 		 (=daikanwa	     . 02496)	; &I-M-02496;
diff --git a/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el b/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el
index 4325de9..fdd2874 100644
--- a/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el
@@ -97,7 +97,7 @@
   '((ideographic-radical . 22)	; ⼕
     (ideographic-strokes . 3)
     (total-strokes	 . 5)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((ideographic-radical . 50)	; â¼±
 		 (shinjigen-1	     . 2079)
@@ -1208,11 +1208,11 @@
   '((ideographic-radical . 22)	; ⼕
     (ideographic-strokes . 12)
     (total-strokes	 . 14)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 796)
       (=daikanwa	  . 02655)	; &I-M-02655;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (hanyu-dazidian	1 89 13)
     (ideographic-structure
diff --git a/lisp/utf-2000/Ideograph-R024-Ten.el b/lisp/utf-2000/Ideograph-R024-Ten.el
index 3880320..3c6ec25 100644
--- a/lisp/utf-2000/Ideograph-R024-Ten.el
+++ b/lisp/utf-2000/Ideograph-R024-Ten.el
@@ -151,7 +151,7 @@
   '((ideographic-radical . 24)	; ⼗
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 823)
 		 (=daikanwa	     . 02740)	; &I-M-02740;
@@ -676,7 +676,7 @@
   '((ideographic-radical . 24)	; ⼗
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((shinjigen-1	     . 910)
 		 (=daikanwa	     . 03154)	; &I-M-03154;
 		 )
@@ -812,11 +812,11 @@
      ((=ucs		  . #xFA35)	; 卑
       (=jis-x0213-1-2000  . #x2E6E)	; &I-JX1-2E6E;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 830)
       (=daikanwa	  . 02738)	; &I-M-02738;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (shinjigen-1	. 829)
     (shinjigen-2	. 829)
@@ -831,11 +831,11 @@
   '((ideographic-radical . 24)	; ⼗
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 830)
       (=daikanwa	  . 02738)	; &I-M-02738;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      zhengzi-tong daikanwa shinjigen-1)
     (shinjigen-1	. 831)
     (shinjigen-2	. 831)
@@ -1191,7 +1191,7 @@
   '((ideographic-radical . 24)	; ⼗
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((shinjigen-1	     . 1170)
 		 (=daikanwa	     . 03993)	; &I-M-03993;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R026-Seal.el b/lisp/utf-2000/Ideograph-R026-Seal.el
index caba811..30b296e 100644
--- a/lisp/utf-2000/Ideograph-R026-Seal.el
+++ b/lisp/utf-2000/Ideograph-R026-Seal.el
@@ -411,10 +411,10 @@
      ((=ucs		  . #x537D)	; 卽
       (=jis-x0213-1-2000  . #x2E71)	; &I-JX1-2E71;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 02873)	; &M-02873;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (hanyu-dazidian	1 314 2)
     (ideographic-structure
@@ -881,7 +881,7 @@
     (ideographic-radical . 26)	; ⼙
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(morohashi-daikanwa)
       :char	((=daikanwa	     . 02879)	; &I-M-02879;
 		 )
@@ -897,7 +897,7 @@
     (hanyu-dazidian-vol	 . 1)
     (hanyu-dazidian-page . 318)
     (hanyu-dazidian-char . 3)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 868)
 		 (=daikanwa	     . 02880)	; &I-M-02880;
@@ -926,7 +926,7 @@
   '((ideographic-radical . 26)	; ⼙
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(morohashi-daikanwa)
       :char	((=daikanwa	     . 02879)	; &I-M-02879;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R027-Cliff.el b/lisp/utf-2000/Ideograph-R027-Cliff.el
index 4544286..dc8dde9 100644
--- a/lisp/utf-2000/Ideograph-R027-Cliff.el
+++ b/lisp/utf-2000/Ideograph-R027-Cliff.el
@@ -1585,7 +1585,7 @@
   '((ideographic-radical . 27)	; ⼚
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((shinjigen-1	     . 2191)
 		 (=daikanwa	     . 09410)	; &I-M-09410;
 		 )
@@ -1874,7 +1874,7 @@
     (ideographic-radical . 27)	; ⼚
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 2199)
 		 (=jis-x0208	     . #x567C)	; &GT-11869;
@@ -2073,7 +2073,7 @@
   '((ideographic-radical . 27)	; ⼚
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 2216)
 		 (=daikanwa	     . 09479)	; &I-M-09479;
@@ -2162,11 +2162,11 @@
     (ideographic-radical . 27)	; ⼚
     (ideographic-strokes . 11)
     (total-strokes	 . 13)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 2207)
       (=gt		  . 11902)	; &GT-11902;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
@@ -2588,7 +2588,7 @@
   '((ideographic-radical . 27)	; ⼚
     (ideographic-strokes . 12)
     (total-strokes	 . 14)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 2212)
 		 (=daikanwa	     . 09487)	; &I-M-09487;
@@ -2700,7 +2700,7 @@
     (ideographic-radical . 27)	; ⼚
     (ideographic-strokes . 12)
     (total-strokes	 . 14)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 2216)
 		 (=daikanwa	     . 09479)	; &I-M-09479;
@@ -2722,7 +2722,7 @@
     (ideographic-radical . 27)	; ⼚
     (ideographic-strokes . 12)
     (total-strokes	 . 14)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((shinjigen-1	     . 2214)
 		 (=daikanwa	     . 09490)	; &I-M-09490;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R028-Private.el b/lisp/utf-2000/Ideograph-R028-Private.el
index 7216abb..9e12082 100644
--- a/lisp/utf-2000/Ideograph-R028-Private.el
+++ b/lisp/utf-2000/Ideograph-R028-Private.el
@@ -812,7 +812,7 @@
   '((ideographic-radical . 28)	; ⼛
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 893)
 		 (=daikanwa	     . 03098)	; &I-M-03098;
diff --git a/lisp/utf-2000/Ideograph-R029-Again.el b/lisp/utf-2000/Ideograph-R029-Again.el
index bf63403..5cc07cf 100644
--- a/lisp/utf-2000/Ideograph-R029-Again.el
+++ b/lisp/utf-2000/Ideograph-R029-Again.el
@@ -293,12 +293,12 @@
     (<-simplified@JP/Jouyou
      ((=jis-x0208-1990	  . #x5256)	; &GT-56567;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((ideographic-radical . 172)	; ⾫
       (shinjigen-1	  . 903)
       (=daikanwa	  . 42116)	; &I-M-42116;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      yunhai shinjigen-1)
     (hanyu-dazidian	1 393 9)
     (ideographic-structure
@@ -398,12 +398,12 @@
      ((=ucs		  . #x6536)	; 收
       (=jis-x0208	  . #x5A40)	; &I-J90-5A40;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((ideographic-radical . 66)	; ⽁
       (shinjigen-1	  . 907)
       (=daikanwa	  . 13110)	; &I-M-13110;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa shinjigen-1)
     (=ucs		. #x53CE)	; 収
     (->subsumptive
@@ -1174,11 +1174,11 @@
      ((=ucs		  . #x654D)	; 敍
       (=jis-x0208	  . #x5A46)	; &I-J90-5A46;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 915)
       (=daikanwa	  . 13205)	; &I-M-13205;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      zhengzi-tong daikanwa shinjigen-1)
     (hanyu-dazidian	1 397 15)
     (ideographic-structure
diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 8716bca..f6de605 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -4016,7 +4016,7 @@
   '((ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 4)
     (total-strokes	 . 7)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(morohashi-daikanwa)
       :char	((=daikanwa	     . 03329)	; &I-M-03329;
 		 )
@@ -25519,7 +25519,7 @@
     (ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(morohashi-daikanwa)
       :char	((=daikanwa	     . 04409)	; &I-M-04409;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R036-Evening.el b/lisp/utf-2000/Ideograph-R036-Evening.el
index 65a4bb9..3686d49 100644
--- a/lisp/utf-2000/Ideograph-R036-Evening.el
+++ b/lisp/utf-2000/Ideograph-R036-Evening.el
@@ -63,7 +63,7 @@
   '((ideographic-radical . 36)	; â¼£
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(shinjigen-1)
       :char	((ideographic-radical . 26)	; ⼙
 		 (shinjigen-1	     . 848)
@@ -606,10 +606,10 @@
     ))
 (define-char
   '((total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 05802)	; &I-M-05802;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      songyuan-yilai-suzipu zihui daikanwa shinjigen-1)
     (hanyu-dazidian	2 863 18)
     (shinjigen-1	. 1552)
@@ -845,11 +845,11 @@
     (ideographic-radical . 36)	; â¼£
     (ideographic-strokes . 11)
     (total-strokes	 . 14)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 1550)
       (=daikanwa	  . 05802)	; &I-M-05802;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (shinjigen-1	. 1553)
     (=jis-x0212		. #x3869)	; &M-05803;
diff --git a/lisp/utf-2000/Ideograph-R037-Big.el b/lisp/utf-2000/Ideograph-R037-Big.el
index f1052fb..2829fe7 100644
--- a/lisp/utf-2000/Ideograph-R037-Big.el
+++ b/lisp/utf-2000/Ideograph-R037-Big.el
@@ -1959,7 +1959,7 @@
   '((ideographic-radical . 37)	; ⼤
     (ideographic-strokes . 8)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(sougen-irai-zokujifu morohashi-daikanwa)
       :char	((=daikanwa	     . 19746)	; &I-M-19746;
 		 )
@@ -2530,11 +2530,11 @@
     (total-strokes	 . 14)
     (=ucs		. #x5969)	; 奩
     (->subsumptive
-     ((<-vulgar-ideograph
+     ((<-vulgar
        ((shinjigen-1	    . 796)
 	(=ucs		    . #x5333)	; 匳
 	))
-      (<-vulgar-ideograph*sources
+      (<-vulgar*sources
        shinjigen-1)
       (shinjigen-1	  . 799)
       (shinjigen-2	  . 799)
diff --git a/lisp/utf-2000/Ideograph-R038-Woman.el b/lisp/utf-2000/Ideograph-R038-Woman.el
index c22d78e..cd97d21 100644
--- a/lisp/utf-2000/Ideograph-R038-Woman.el
+++ b/lisp/utf-2000/Ideograph-R038-Woman.el
@@ -1907,7 +1907,7 @@
   '((ideographic-radical . 38)	; â¼¥
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((=daikanwa	     . 06164)	; &I-M-06164;
 		 )
       :sources	(morohashi-daikanwa)))
diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 95b66dd..81e13e5 100644
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -2596,7 +2596,7 @@
     (ideographic-radical . 40)	; ⼧
     (ideographic-strokes . 8)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((=daikanwa	     . 01587)	; &I-M-01587;
 		 )
       :sources	(seiji-tsuu morohashi-daikanwa)))
diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el
index bce58d7..1feb382 100644
--- a/lisp/utf-2000/Ideograph-R044-Corpse.el
+++ b/lisp/utf-2000/Ideograph-R044-Corpse.el
@@ -819,10 +819,10 @@
      ((=ucs		  . #x665D)	; 晝
       (=jis-x0208	  . #x5A6C)	; &I-J90-5A6C;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 13948)	; &I-M-13948;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      songyuan-yilai-suzipu daikanwa)
     (shinjigen-2	. 3309)
     (=ucs		. #x663C)	; 昼
diff --git a/lisp/utf-2000/Ideograph-R053-Dotted-Cliff.el b/lisp/utf-2000/Ideograph-R053-Dotted-Cliff.el
index 87de0eb..afef3ec 100644
--- a/lisp/utf-2000/Ideograph-R053-Dotted-Cliff.el
+++ b/lisp/utf-2000/Ideograph-R053-Dotted-Cliff.el
@@ -1699,7 +1699,7 @@
     (ideographic-radical . 53)	; â¼´
     (ideographic-strokes . 7)
     (total-strokes	 . 10)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(seiji-tsuu morohashi-daikanwa shinjigen-1)
       :char	((shinjigen-1	     . 879)
 		 (=daikanwa	     . 02942)	; &I-M-02942;
@@ -3451,7 +3451,7 @@
     (ideographic-radical . 53)	; â¼´
     (ideographic-strokes . 11)
     (total-strokes	 . 14)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(jiyun morohashi-daikanwa)
       :char	((=daikanwa	     . 09453)	; &I-M-09453;
 		 )
@@ -3484,7 +3484,7 @@
     (ideographic-radical . 53)	; â¼´
     (ideographic-strokes . 11)
     (total-strokes	 . 14)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((shinjigen-1	     . 2207)
 		 (=gt		     . 11902)	; &GT-11902;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index 4aa2ea1..8d79130 100644
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -67,7 +67,7 @@
     (ideographic-radical . 58)	; â¼¹
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((=daikanwa	     . 16349)	; &I-M-16349;
 		 )
       :sources	(morohashi-daikanwa)))
@@ -108,10 +108,10 @@
   '((ideographic-radical . 58)	; â¼¹
     (ideographic-strokes . 3)
     (total-strokes	 . 6)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 21890)	; &I-M-21890;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa)
     (=ucs		. #x22450)	; 𢑐
     (=cns11643-6	. #x246E)	; &I-C6-246E;
diff --git a/lisp/utf-2000/Ideograph-R061-Heart.el b/lisp/utf-2000/Ideograph-R061-Heart.el
index a9afd76..8ecf9b0 100644
--- a/lisp/utf-2000/Ideograph-R061-Heart.el
+++ b/lisp/utf-2000/Ideograph-R061-Heart.el
@@ -7250,14 +7250,14 @@
      ((=jis-x0208	  . #x584E)	; &GT-13968;
       (=daikanwa	  . 11094)	; &I-M-11094;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((ideographic-radical . 61)	; â¼¼
       (ideographic-strokes . 11)
       (total-strokes	   . 14)
       (shinjigen-2	  . 2544)
       (=daikanwa	  . 11094)	; &I-M-11094;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa)
     (shinjigen-2	. 2543)
     (=ucs		. #x60E8)	; 惨
diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 0fb0e2d..361d837 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -388,12 +388,12 @@
   '((ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 3)
     (total-strokes	 . 7)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 3267)
       (=jis-x0208	  . #x3B5D)	; &I-J90-3B5D;
       (=daikanwa	  . 13738)	; &I-M-13738;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (shinjigen-1	. 3269)
     (shinjigen-2	. 3269)
@@ -1830,10 +1830,10 @@
      ((=ucs		  . #x665D)	; 晝
       (=jis-x0208	  . #x5A6C)	; &I-J90-5A6C;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 13948)	; &I-M-13948;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      songyuan-yilai-suzipu daikanwa)
     (shinjigen-2	. 3309)
     (=ucs		. #x663C)	; 昼
diff --git a/lisp/utf-2000/Ideograph-R075-Tree.el b/lisp/utf-2000/Ideograph-R075-Tree.el
index 1decf9a..7f9f632 100644
--- a/lisp/utf-2000/Ideograph-R075-Tree.el
+++ b/lisp/utf-2000/Ideograph-R075-Tree.el
@@ -5107,7 +5107,7 @@
   '((ideographic-radical . 75)	; ⽊
     (ideographic-strokes . 6)
     (total-strokes	 . 12)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((=daikanwa	     . 15010)	; &I-M-15010;
 		 )
       :sources	(seiji-tsuu morohashi-daikanwa)))
@@ -7683,10 +7683,10 @@
     ))
 (define-char
   '((total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 05802)	; &I-M-05802;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      songyuan-yilai-suzipu zihui daikanwa shinjigen-1)
     (hanyu-dazidian	2 863 18)
     (shinjigen-1	. 1552)
@@ -18099,11 +18099,11 @@
       ))
     (->synonyms@seiji-tsuu*sources
      seiji-tsuu jiyun daikanwa)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 932)
       (=daikanwa	  . 03220)	; &I-M-03220;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (hanyu-dazidian	2 1288 18)
     (shinjigen-1	. 933)
diff --git a/lisp/utf-2000/Ideograph-R079-Weapon.el b/lisp/utf-2000/Ideograph-R079-Weapon.el
index a65e986..051fe1a 100644
--- a/lisp/utf-2000/Ideograph-R079-Weapon.el
+++ b/lisp/utf-2000/Ideograph-R079-Weapon.el
@@ -267,10 +267,10 @@
       (=jis-x0213-1-2000  . #x7649)	; &I-JX1-7649;
       (=daikanwa	  . 16638)	; &I-M-16638;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 16638)	; &I-M-16638;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa)
     (shinjigen-1	. 3996)
     (shinjigen-2	. 3996)
diff --git a/lisp/utf-2000/Ideograph-R085-Water.el b/lisp/utf-2000/Ideograph-R085-Water.el
index ecd3f03..03dc009 100644
--- a/lisp/utf-2000/Ideograph-R085-Water.el
+++ b/lisp/utf-2000/Ideograph-R085-Water.el
@@ -9835,10 +9835,10 @@
      ((=ucs		  . #x6EAB)	; 溫
       (=jis-x0213-1-2000  . #x767C)	; &I-JX1-767C;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 17968)	; &I-M-17968;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      zihui daikanwa)
     (shinjigen-2	. 4319)
     (=ucs		. #x6E29)	; 温
@@ -20704,7 +20704,7 @@
     (ideographic-radical . 85)	; ⽔
     (ideographic-strokes . 14)
     (total-strokes	 . 17)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((=daikanwa	     . 18659)	; &I-M-18659;
 		 )
       :sources	(seiji-tsuu morohashi-daikanwa)))
diff --git a/lisp/utf-2000/Ideograph-R086-Fire.el b/lisp/utf-2000/Ideograph-R086-Fire.el
index 13d43ef..5ea90ca 100644
--- a/lisp/utf-2000/Ideograph-R086-Fire.el
+++ b/lisp/utf-2000/Ideograph-R086-Fire.el
@@ -172,7 +172,7 @@
     (ideographic-radical . 86)	; ⽕
     (ideographic-strokes . 2)
     (total-strokes	 . 6)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((=daikanwa	     . 18858)	; &I-M-18858;
 		 )
       :sources	(chuuka-daijiten morohashi-daikanwa)))
@@ -199,10 +199,10 @@
     (ideographic-radical . 86)	; ⽕
     (ideographic-strokes . 2)
     (total-strokes	 . 6)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 18858)	; &I-M-18858;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      zhonghua-dazidian daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
@@ -1781,7 +1781,7 @@
     (ideographic-radical . 86)	; ⽕
     (ideographic-strokes . 5)
     (total-strokes	 . 9)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((=daikanwa	     . 18953)	; &I-M-18953;
 		 )
       :sources	(morohashi-daikanwa)))
diff --git a/lisp/utf-2000/Ideograph-R096-Jade.el b/lisp/utf-2000/Ideograph-R096-Jade.el
index 8268389..2a4b278 100644
--- a/lisp/utf-2000/Ideograph-R096-Jade.el
+++ b/lisp/utf-2000/Ideograph-R096-Jade.el
@@ -1255,7 +1255,7 @@
   '((ideographic-radical . 96)	; ⽟
     (ideographic-strokes . 5)
     (total-strokes	 . 9)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(jiyun morohashi-daikanwa)
       :char	((=daikanwa	     . 20920)	; &I-M-20920;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R106-White.el b/lisp/utf-2000/Ideograph-R106-White.el
index 61e2dee..9691cf0 100644
--- a/lisp/utf-2000/Ideograph-R106-White.el
+++ b/lisp/utf-2000/Ideograph-R106-White.el
@@ -328,11 +328,11 @@
     (ideographic-radical . 106)	; ⽩
     (ideographic-strokes . 4)
     (total-strokes	 . 9)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 3961)
       (=daikanwa	  . 16308)	; &I-M-16308;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (shinjigen-1	. 3962)
     (shinjigen-2	. 3962)
diff --git a/lisp/utf-2000/Ideograph-R112-Stone.el b/lisp/utf-2000/Ideograph-R112-Stone.el
index bc24c30..46a6bc8 100644
--- a/lisp/utf-2000/Ideograph-R112-Stone.el
+++ b/lisp/utf-2000/Ideograph-R112-Stone.el
@@ -619,10 +619,10 @@
       (=jis-x0213-1-2000  . #x7923)	; &I-JX1-7923;
       (=daikanwa	  . 24177)	; &I-M-24177;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 24177)	; &I-M-24177;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa)
     (shinjigen-2	. 5407)
     (=ucs		. #x7814)	; 研
diff --git a/lisp/utf-2000/Ideograph-R113-Spirit.el b/lisp/utf-2000/Ideograph-R113-Spirit.el
index 7f8d36b..4efca71 100644
--- a/lisp/utf-2000/Ideograph-R113-Spirit.el
+++ b/lisp/utf-2000/Ideograph-R113-Spirit.el
@@ -2778,10 +2778,10 @@
     (ideographic-radical . 113)	; â½°
     (ideographic-strokes . 8)
     (total-strokes	 . 13)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 24835)	; &I-M-24835;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      sougen-irai-zokujifu daikanwa)
     (=daikanwa		. 24754)	; &M-24754;
     ))
@@ -3803,10 +3803,10 @@
     (ideographic-radical . 113)	; â½°
     (ideographic-strokes . 11)
     (total-strokes	 . 16)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 25267)	; &I-M-25267;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      seiji-tsuu daikanwa)
     (=daikanwa		. 24824)	; &M-24824;
     ))
diff --git a/lisp/utf-2000/Ideograph-R118-Bamboo.el b/lisp/utf-2000/Ideograph-R118-Bamboo.el
index 5b2e73b..a70a062 100644
--- a/lisp/utf-2000/Ideograph-R118-Bamboo.el
+++ b/lisp/utf-2000/Ideograph-R118-Bamboo.el
@@ -2404,10 +2404,10 @@
      ((=ucs		  . #xFA56)	; 節
       (=jis-x0213-1-2000  . #x7964)	; &I-JX1-7964;
       ))
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 26243)	; &M-26243;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      cihai daikanwa)
     (shinjigen-2	. 5805)
     (=ucs		. #x7BC0)	; 節
diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index e8a4901..10f1bc7 100644
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -451,7 +451,7 @@
       ))
     (->same*sources
      daikanwa)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((=daikanwa	     . 38671)	; &I-M-38671;
 		 )
       :sources	(daikanwa))
diff --git a/lisp/utf-2000/Ideograph-R140-Grass.el b/lisp/utf-2000/Ideograph-R140-Grass.el
index 96dfe62..9b6398b 100644
--- a/lisp/utf-2000/Ideograph-R140-Grass.el
+++ b/lisp/utf-2000/Ideograph-R140-Grass.el
@@ -25598,11 +25598,11 @@
     (ideographic-radical . 140)	; ⾋
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((shinjigen-1	  . 6886)
       (=ucs		  . #x843C)	; 萼
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      shinjigen-1)
     (hanyu-dazidian	5 3291 3)
     (shinjigen-1	. 6887)
diff --git a/lisp/utf-2000/Ideograph-R165-Distinguish.el b/lisp/utf-2000/Ideograph-R165-Distinguish.el
index b502a79..3beb0e5 100644
--- a/lisp/utf-2000/Ideograph-R165-Distinguish.el
+++ b/lisp/utf-2000/Ideograph-R165-Distinguish.el
@@ -79,10 +79,10 @@
     (ideographic-radical . 165)	; ⾤
     (ideographic-strokes . 4)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 40129)	; &I-M-40129;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa)
     (=gt		. 53949)	; &GT-53949;
     (=gt-pj-7		. #x6356)	; &GT-53949;
diff --git a/lisp/utf-2000/Ideograph-R177-Leather.el b/lisp/utf-2000/Ideograph-R177-Leather.el
index b099dfe..05e08d3 100644
--- a/lisp/utf-2000/Ideograph-R177-Leather.el
+++ b/lisp/utf-2000/Ideograph-R177-Leather.el
@@ -168,7 +168,7 @@
     (ideographic-radical . 177)	; â¾°
     (ideographic-strokes . 3)
     (total-strokes	 . 12)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:sources	(doubun-tsuukou morohashi-daikanwa)
       :char	((=daikanwa	     . 42713)	; &I-M-42713;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R189-Tall.el b/lisp/utf-2000/Ideograph-R189-Tall.el
index 68fa365..a6d62ab 100644
--- a/lisp/utf-2000/Ideograph-R189-Tall.el
+++ b/lisp/utf-2000/Ideograph-R189-Tall.el
@@ -28,7 +28,7 @@
     (ideographic-radical . 189)	; â¾¼
     (ideographic-strokes . 0)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      (:char	((=daikanwa	     . 45313)	; &I-M-45313;
 		 )
       :sources	(inkai morohashi-daikanwa)))
diff --git a/lisp/utf-2000/Ideograph-R205-Frog.el b/lisp/utf-2000/Ideograph-R205-Frog.el
index d824d47..23ec030 100644
--- a/lisp/utf-2000/Ideograph-R205-Frog.el
+++ b/lisp/utf-2000/Ideograph-R205-Frog.el
@@ -33,10 +33,10 @@
     (ideographic-radical . 205)	; ⿌
     (ideographic-strokes . 0)
     (total-strokes	 . 8)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((=daikanwa	  . 48257)	; &I-M-48257;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      zhengzi-tong daikanwa)
     (=ucs		. #x2FA18)	; 黾
     (=cns11643-4	. #x2834)	; &I-C4-2834;
diff --git a/lisp/utf-2000/Ideograph-R213-Turtle.el b/lisp/utf-2000/Ideograph-R213-Turtle.el
index b5fef3d..467fff1 100644
--- a/lisp/utf-2000/Ideograph-R213-Turtle.el
+++ b/lisp/utf-2000/Ideograph-R213-Turtle.el
@@ -9,11 +9,11 @@
     (ideographic-radical@cns*sources
      shinjigen-1 cns11643 gt)
     (total-strokes	 . 11)
-    (<-vulgar-ideograph
+    (<-vulgar
      ((ideographic-radical . 213)	; ⿔
       (=daikanwa	  . 48847)	; &I-M-48847;
       ))
-    (<-vulgar-ideograph*sources
+    (<-vulgar*sources
      daikanwa)
     (hanyu-dazidian	8 10 19)
     (ideographic-structure
-- 
1.7.10.4