From 6180cb7c4a65968a5a98cac6b019bb6f46d09e05 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 26 Jun 2004 17:58:38 +0000
Subject: [PATCH] Rename `<-ancient-ideograph' to `<-ancient'.

---
 lisp/utf-2000/Ideograph-R001-One.el          |   10 +++++-----
 lisp/utf-2000/Ideograph-R002-Line.el         |    4 ++--
 lisp/utf-2000/Ideograph-R003-Dot.el          |    4 ++--
 lisp/utf-2000/Ideograph-R004-Slash.el        |    4 ++--
 lisp/utf-2000/Ideograph-R009-Man.el          |    6 +++---
 lisp/utf-2000/Ideograph-R016-Table.el        |    8 ++++----
 lisp/utf-2000/Ideograph-R018-Knife.el        |    8 ++++----
 lisp/utf-2000/Ideograph-R019-Power.el        |    2 +-
 lisp/utf-2000/Ideograph-R025-Divination.el   |    6 +++---
 lisp/utf-2000/Ideograph-R027-Cliff.el        |    4 ++--
 lisp/utf-2000/Ideograph-R030-Mouth.el        |    2 +-
 lisp/utf-2000/Ideograph-R036-Evening.el      |    4 ++--
 lisp/utf-2000/Ideograph-R038-Woman.el        |    2 +-
 lisp/utf-2000/Ideograph-R041-Inch.el         |    6 +++---
 lisp/utf-2000/Ideograph-R047-River.el        |    4 ++--
 lisp/utf-2000/Ideograph-R052-Short-Thread.el |    4 ++--
 lisp/utf-2000/Ideograph-R087-Claw.el         |    4 ++--
 lisp/utf-2000/Ideograph-R109-Eye.el          |    4 ++--
 lisp/utf-2000/Ideograph-R115-Grain.el        |    4 ++--
 lisp/utf-2000/Ideograph-R213-Turtle.el       |    4 ++--
 20 files changed, 47 insertions(+), 47 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index 271065a..caf5965 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -1669,7 +1669,7 @@
   '((ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 6)
     (total-strokes	 . 7)
-    (<-ancient-ideograph
+    (<-ancient
      (:sources	(morohashi-daikanwa)
       :char	((=daikanwa	     . 39763)	; &I-M-39763;
 		 )
@@ -1981,10 +1981,10 @@
      ((=cns11643-3	  . #x2740)	; &GT-00145; [07-32]
       (=daikanwa	  . 00104)	; &I-M-00104;
       ))
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 47663)	; &I-M-47663;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      daikanwa)
     (=cns11643-6	. #x2936)	; &GT-00087; [09-22]
     (=gt		. 00087)	; &I-GT-00087;
@@ -2039,10 +2039,10 @@
      ((=cns11643-6	  . #x2936)	; &GT-00087; [09-22]
       (=daikanwa	  . 00059)	; &I-M-00059;
       ))
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 47663)	; &I-M-47663;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      daikanwa)
     (<-denotational
      ((=ucs		  . #x4E3D)	; 丽
diff --git a/lisp/utf-2000/Ideograph-R002-Line.el b/lisp/utf-2000/Ideograph-R002-Line.el
index c9f67d4..617802d 100644
--- a/lisp/utf-2000/Ideograph-R002-Line.el
+++ b/lisp/utf-2000/Ideograph-R002-Line.el
@@ -51,10 +51,10 @@
       ))
     (->same*sources
      daikanwa)
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 02774)	; &I-M-02774;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      daikanwa)
     (hanyu-dazidian	1 28 4)
     (=ucs		. #x20061)	; 𠁡
diff --git a/lisp/utf-2000/Ideograph-R003-Dot.el b/lisp/utf-2000/Ideograph-R003-Dot.el
index b973240..f1e7ce9 100644
--- a/lisp/utf-2000/Ideograph-R003-Dot.el
+++ b/lisp/utf-2000/Ideograph-R003-Dot.el
@@ -400,10 +400,10 @@
      ((=cns11643-6	  . #x2936)	; &GT-00087; [09-22]
       (=daikanwa	  . 00059)	; &I-M-00059;
       ))
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 47663)	; &I-M-47663;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      daikanwa)
     (<-denotational
      ((=ucs		  . #x4E3D)	; 丽
diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index c30e2a9..371425c 100644
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -66,7 +66,7 @@
   '((ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 0)
     (total-strokes	 . 1)
-    (<-ancient-ideograph
+    (<-ancient
      (:sources	(morohashi-daikanwa)
       :char	((=daikanwa	     . 03118)	; &I-M-03118;
 		 )
@@ -175,7 +175,7 @@
      ((name		  . "BOPOMOFO LETTER U")
       (=ucs		  . #x3128)	; ㄨ
       ))
-    (<-ancient-ideograph
+    (<-ancient
      (:sources	(morohashi-daikanwa)
       :char	((=daikanwa	     . 00257)	; &I-M-00257;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index 69fa72c..d2c156b 100644
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -1559,7 +1559,7 @@
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 3)
     (total-strokes	 . 5)
-    (<-ancient-ideograph
+    (<-ancient
      (:sources	(morohashi-daikanwa)
       :char	((=daikanwa	     . 00630)	; &I-M-00630;
 		 )
@@ -7257,7 +7257,7 @@
   '((ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
-    (<-ancient-ideograph
+    (<-ancient
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 211)
 		 (=daikanwa	     . 00577)	; &I-M-00577;
@@ -19895,7 +19895,7 @@
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
-    (<-ancient-ideograph
+    (<-ancient
      (:sources	(jiyun morohashi-daikanwa)
       :char	((=daikanwa	     . 00702)	; &I-M-00702;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R016-Table.el b/lisp/utf-2000/Ideograph-R016-Table.el
index 52aee4c..0b9cee3 100644
--- a/lisp/utf-2000/Ideograph-R016-Table.el
+++ b/lisp/utf-2000/Ideograph-R016-Table.el
@@ -588,12 +588,12 @@
   '((ideographic-radical . 16)	; ⼏
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
-    (<-ancient-ideograph
+    (<-ancient
      ((shinjigen-1	  . 9211)
       (=jis-x0208	  . #x4977)	; &I-J90-4977; [41-87]
       (=daikanwa	  . 43756)	; &I-M-43756;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      shinjigen-1)
     (hanyu-dazidian	1 277 11)
     (=ucs		. #x51EC)	; 凬
@@ -744,10 +744,10 @@
     (ideographic-radical@cns*sources
      daikanwa=01775 cns11643)
     (total-strokes	 . 8)
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 09208)	; &I-M-09208;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      yupian jiyun daikanwa)
     (hanyu-dazidian	2 1094 6)
     (=ucs		. #x221BB)	; 𢆻
diff --git a/lisp/utf-2000/Ideograph-R018-Knife.el b/lisp/utf-2000/Ideograph-R018-Knife.el
index e4ff3ae..b14c1f4 100644
--- a/lisp/utf-2000/Ideograph-R018-Knife.el
+++ b/lisp/utf-2000/Ideograph-R018-Knife.el
@@ -2678,10 +2678,10 @@
   '((ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 01917)	; &I-M-01917;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      zihui-bei daikanwa)
     (=ucs		. #x206F9)	; 𠛹
     (=cns11643-6	. #x2967)	; &I-C6-2967; [09-71]
@@ -7923,11 +7923,11 @@
       ))
     (->same*sources
      yupian daikanwa)
-    (<-ancient-ideograph
+    (<-ancient
      ((shinjigen-1	  . 653)
       (=daikanwa	  . 02228)	; &I-M-02228;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      shinjigen-1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 410fdc1..963913b 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -2416,7 +2416,7 @@
   '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
-    (<-ancient-ideograph
+    (<-ancient
      (:sources	(shuowen morohashi-daikanwa)
       :char	((=daikanwa	     . 02465)	; &I-M-02465;
 		 )
diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index 528becc..e78dbb6 100644
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -34,10 +34,10 @@
     (->same
      ((=ucs		  . #x20061)	; 𠁡
       ))
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 02774)	; &I-M-02774;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      shuowen daikanwa)
     (=cns11643-6	. #x212C)	; &M-02775; [01-12]
     (=daikanwa		. 02775)	; &I-M-02775;
@@ -542,7 +542,7 @@
   '((ideographic-radical . 25)	; ⼘
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (<-ancient-ideograph
+    (<-ancient
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 839)
 		 (=daikanwa	     . 02791)	; &I-M-02791;
diff --git a/lisp/utf-2000/Ideograph-R027-Cliff.el b/lisp/utf-2000/Ideograph-R027-Cliff.el
index dfa394f..980a828 100644
--- a/lisp/utf-2000/Ideograph-R027-Cliff.el
+++ b/lisp/utf-2000/Ideograph-R027-Cliff.el
@@ -763,7 +763,7 @@
     (ideographic-radical . 27)	; ⼚
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
-    (<-ancient-ideograph
+    (<-ancient
      (:char	((=daikanwa	     . 13738)	; &I-M-13738;
 		 )
       :sources	(jiyun morohashi-daikanwa)))
@@ -828,7 +828,7 @@
     (ideographic-radical . 27)	; ⼚
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
-    (<-ancient-ideograph
+    (<-ancient
      (:char	((=daikanwa	     . 08926)	; &I-M-08926;
 		 )
       :sources	(jii morohashi-daikanwa)))
diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 006f3cc..53cd0e6 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -608,7 +608,7 @@
   '((ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
-    (<-ancient-ideograph
+    (<-ancient
      (:sources	(shinjigen-1)
       :char	((shinjigen-1	     . 721)
 		 (=daikanwa	     . 02742)	; &I-M-02742;
diff --git a/lisp/utf-2000/Ideograph-R036-Evening.el b/lisp/utf-2000/Ideograph-R036-Evening.el
index 4307096..e2ddcce 100644
--- a/lisp/utf-2000/Ideograph-R036-Evening.el
+++ b/lisp/utf-2000/Ideograph-R036-Evening.el
@@ -184,10 +184,10 @@
   '((ideographic-radical . 36)	; â¼£
     (ideographic-strokes . 3)
     (total-strokes	 . 6)
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 05756)	; &I-M-05756;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      jiyun daikanwa)
     (hanyu-dazidian	1 53 6)
     (ideographic-structure
diff --git a/lisp/utf-2000/Ideograph-R038-Woman.el b/lisp/utf-2000/Ideograph-R038-Woman.el
index 1297e0d..033eaea 100644
--- a/lisp/utf-2000/Ideograph-R038-Woman.el
+++ b/lisp/utf-2000/Ideograph-R038-Woman.el
@@ -76,7 +76,7 @@
   '((ideographic-radical . 38)	; â¼¥
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
-    (<-ancient-ideograph
+    (<-ancient
      (:char	((=daikanwa	     . 06039)	; &I-M-06039;
 		 )
       :sources	(morohashi-daikanwa)))
diff --git a/lisp/utf-2000/Ideograph-R041-Inch.el b/lisp/utf-2000/Ideograph-R041-Inch.el
index 7714c7b..0825188 100644
--- a/lisp/utf-2000/Ideograph-R041-Inch.el
+++ b/lisp/utf-2000/Ideograph-R041-Inch.el
@@ -788,10 +788,10 @@
     (->subsumptive
      ((ideographic-strokes . 14)
       (total-strokes	   . 17)
-      (<-ancient-ideograph
+      (<-ancient
        ((=daikanwa	    . 07465)	; &I-M-07465;
 	))
-      (<-ancient-ideograph*sources
+      (<-ancient*sources
        daikanwa)
       (=daikanwa	  . 07468)	; &M-07468;
       )
@@ -820,7 +820,7 @@
   '((ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 16)
     (total-strokes	 . 19)
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 07465)	; &I-M-07465;
       ))
     (=ucs		. #x21B51)	; 𡭑
diff --git a/lisp/utf-2000/Ideograph-R047-River.el b/lisp/utf-2000/Ideograph-R047-River.el
index e5dcc46..f178255 100644
--- a/lisp/utf-2000/Ideograph-R047-River.el
+++ b/lisp/utf-2000/Ideograph-R047-River.el
@@ -26,10 +26,10 @@
       ))
     (->mistakable*sources
      kangxi)
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 04969)	; &I-M-04969;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      yupian)
     (=daikanwa		. 08670)	; &M-08670;
     ))
diff --git a/lisp/utf-2000/Ideograph-R052-Short-Thread.el b/lisp/utf-2000/Ideograph-R052-Short-Thread.el
index 93aa13b..a8318ee 100644
--- a/lisp/utf-2000/Ideograph-R052-Short-Thread.el
+++ b/lisp/utf-2000/Ideograph-R052-Short-Thread.el
@@ -143,10 +143,10 @@
     (ideographic-radical@cns*sources
      daikanwa=01775 cns11643)
     (total-strokes	 . 8)
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 09208)	; &I-M-09208;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      yupian jiyun daikanwa)
     (hanyu-dazidian	2 1094 6)
     (=ucs		. #x221BB)	; 𢆻
diff --git a/lisp/utf-2000/Ideograph-R087-Claw.el b/lisp/utf-2000/Ideograph-R087-Claw.el
index 009d62f..1085150 100644
--- a/lisp/utf-2000/Ideograph-R087-Claw.el
+++ b/lisp/utf-2000/Ideograph-R087-Claw.el
@@ -286,10 +286,10 @@
     (ideographic-radical . 87)	; ⽖
     (ideographic-strokes . 7)
     (total-strokes	 . 11)
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 19687)	; &I-M-19687;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      shuowen daikanwa)
     (=daikanwa		. 19682)	; &M-19682;
     ))
diff --git a/lisp/utf-2000/Ideograph-R109-Eye.el b/lisp/utf-2000/Ideograph-R109-Eye.el
index e0bac12..99d7a98 100644
--- a/lisp/utf-2000/Ideograph-R109-Eye.el
+++ b/lisp/utf-2000/Ideograph-R109-Eye.el
@@ -5334,12 +5334,12 @@
   '((ideographic-radical . 109)	; ⽬
     (ideographic-strokes . 9)
     (total-strokes	 . 14)
-    (<-ancient-ideograph
+    (<-ancient
      ((shinjigen-1	  . 928)
       (=jis-x0208	  . #x3143)	; &I-J90-3143; [17-35]
       (=daikanwa	  . 03214)	; &I-M-03214;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      shuowen daikanwa shinjigen-1)
     (shinjigen-1	. 929)
     (shinjigen-2	. 929)
diff --git a/lisp/utf-2000/Ideograph-R115-Grain.el b/lisp/utf-2000/Ideograph-R115-Grain.el
index 030e5f7..f8031b6 100644
--- a/lisp/utf-2000/Ideograph-R115-Grain.el
+++ b/lisp/utf-2000/Ideograph-R115-Grain.el
@@ -5311,10 +5311,10 @@
      ((=jis-x0208-1983	  . #x6354)	; &GT-32753; [67-52]
       (=daikanwa	  . 48869)	; &I-M-48869;
       ))
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 24940)	; &I-M-24940;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      zihui daikanwa)
     (=cns11643-3	. #x5E47)	; &M-25381; [62-39]
     (=daikanwa		. 25381)	; &I-M-25381;
diff --git a/lisp/utf-2000/Ideograph-R213-Turtle.el b/lisp/utf-2000/Ideograph-R213-Turtle.el
index f24517e..c10fbd9 100644
--- a/lisp/utf-2000/Ideograph-R213-Turtle.el
+++ b/lisp/utf-2000/Ideograph-R213-Turtle.el
@@ -272,10 +272,10 @@
      ((=cns11643-3	  . #x5E47)	; &M-25381; [62-39]
       (=daikanwa	  . 25381)	; &I-M-25381;
       ))
-    (<-ancient-ideograph
+    (<-ancient
      ((=daikanwa	  . 24940)	; &I-M-24940;
       ))
-    (<-ancient-ideograph*sources
+    (<-ancient*sources
      zihui daikanwa)
     (=jis-x0208-1983	. #x6354)	; &GT-32753; [67-52]
     (=jis-x0208-1990	. #x6354)	; &I-J90-6354; [67-52]
-- 
1.7.10.4