Rename `<-ancient-ideograph' to `<-ancient'.

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index 271065a..caf5965 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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]