Reformatted.

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index c0d5145..43ba3ba 100644 (file)
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -18647,9 +18647,9 @@
       )
      ((=ucs              . #x5415)     ; 吕
       ))
-    (=gt-k             . 04903)        ; &U-i001+23140;
-    (=gt-pj-k1         . #x393C)       ; &U-i001+23140; [25-28]
-    (=ucs-itaiji-001   . #x23140)      ; &U-i001+23140;
+    (=gt-k             . 04903)        ; &GT-K04903;
+    (=gt-pj-k1         . #x393C)       ; &GT-K04903; [25-28]
+    (=ucs-itaiji-001   . #x23140)      ; &GT-K04903;
     (<-formed@component
      ((=ucs@iso                  . #x23140)    ; &GT-17371;
       (=cns11643-6       . #x247A)     ; &GT-17371; [04-90]
@@ -18673,7 +18673,7 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND")
       (=ucs              . #x2FF4)     ; ⿴
       )
-     ((=gt-k             . 01369)      ; &U-i001+8863;
+     ((=gt-k             . 01369)      ; &GT-K01369;
       )
      ((=ucs              . #x53E3)     ; 口
       ))
@@ -30760,7 +30760,7 @@
       )
      ((=ucs              . #x53E3)     ; 口
       )
-     ((=gt-k             . 03405)      ; &U-i001+2D1B2;
+     ((=gt-k             . 03405)      ; &GT-K03405;
       ))
     (=ucs@iso          . #x20CE6)      ; &U-00020CE6;
     ))
@@ -31829,9 +31829,9 @@
       )
      ((=ucs              . #x5348)     ; 午
       ))
-    (=gt-k             . 07481)        ; &U-i002+54A2;
-    (=gt-pj-k2         . #x384D)       ; &U-i002+54A2; [24-45]
-    (=ucs-itaiji-002   . #x54A2)       ; &U-i002+54A2;
+    (=gt-k             . 07481)        ; &GT-K07481;
+    (=gt-pj-k2         . #x384D)       ; &GT-K07481; [24-45]
+    (=ucs-itaiji-002   . #x54A2)       ; &GT-K07481;
     (->subsumptive
      ((==gt-k            . 07481)      ; &g2-U-i002+54A2;
       (==gt-pj-k2        . #x384D)     ; &g2-U-i002+54A2; [24-45]
@@ -35877,7 +35877,7 @@
       )
      ((=ucs              . #x53E3)     ; 口
       )
-     ((=gt-k             . 06360)      ; &U-i001+758C;
+     ((=gt-k             . 06360)      ; &GT-K06360;
       ))
     (=ucs              . #x20E1D)      ; 𠸝
     (->subsumptive
@@ -37415,7 +37415,7 @@
       )
      ((=ucs              . #x53E3)     ; 口
       )
-     ((=gt-k             . 04901)      ; &U-i004+342D;
+     ((=gt-k             . 04901)      ; &GT-K04901;
       ))
     (=mj               . 032330)       ; &MJ032330;
     (=koseki           . 043960)       ; &MJ032330;
@@ -51448,9 +51448,9 @@
       )
      ((=ucs              . #x4E8F)     ; 亏
       ))
-    (=gt-k             . 09615)        ; &U-i001+20D5B;
-    (=gt-pj-k1         . #x6450)       ; &U-i001+20D5B; [68-48]
-    (=ucs-itaiji-001   . #x20D5B)      ; &U-i001+20D5B;
+    (=gt-k             . 09615)        ; &GT-K09615;
+    (=gt-pj-k1         . #x6450)       ; &GT-K09615; [68-48]
+    (=ucs-itaiji-001   . #x20D5B)      ; &GT-K09615;
     (->subsumptive
      ((==gt-k            . 09615)      ; &g2-U-i001+20D5B;
       (==gt-pj-k1        . #x6450)     ; &g2-U-i001+20D5B; [68-48]
@@ -68051,9 +68051,9 @@
       )
      ((=ucs@iso                  . #x20B9B)    ; &C4-2147;
       ))
-    (=gt-k             . 09871)        ; &U-i001+563C;
-    (=gt-pj-k1         . #x5953)       ; &U-i001+563C; [57-51]
-    (=ucs-itaiji-001   . #x563C)       ; &U-i001+563C;
+    (=gt-k             . 09871)        ; &GT-K09871;
+    (=gt-pj-k1         . #x5953)       ; &GT-K09871; [57-51]
+    (=ucs-itaiji-001   . #x563C)       ; &GT-K09871;
     (->subsumptive
      ((==gt-k            . 09871)      ; &g2-U-i001+563C;
       (==gt-pj-k1        . #x5953)     ; &g2-U-i001+563C; [57-51]