(M-24626): Unify U+FA18.

(mother of J0-4E69): Unify G-UU+793C, g2-UU+793C, g2-J0-4E69 and
g2-GT-31490.

diff --git a/lisp/utf-2000/Ideograph-R113-Spirit.el b/lisp/utf-2000/Ideograph-R113-Spirit.el
index 9a90414..335413b 100644 (file)
--- a/lisp/utf-2000/Ideograph-R113-Spirit.el
+++ b/lisp/utf-2000/Ideograph-R113-Spirit.el
@@ -111,11 +111,13 @@
   '((<-denotational
      ((=ucs              . #x793C)     ; 礼
       ))
+    (=>ucs*            . #x793C)       ; 礼
     (ideographic-radical . 113)        ; ⽰
     (ideographic-strokes . 1)
     (total-strokes      . 6)
-    (=daikanwa         . 24626)        ; &M-24626;
-    (=shinjigen                .  5507)        ; &M-24626;
+    (=ucs              . #xFA18)       ; 礼
+    (=daikanwa         . 24626)        ; &I-M-24626;
+    (=shinjigen                .  5507)        ; 礼
     (=jef-china3       . #x70E5)       ; &I-JC3-70E5;
     (<-ancient
      ((=ucs@jis                  . #x79AE)     ; &GT-32019;
@@ -135,6 +137,11 @@
     (ideographic-radical . 113)        ; ⽰
     (ideographic-strokes . 1)
     (total-strokes      . 6)
+    (=>>ucs@unicode    . #x793C)       ; &g2-J0-4E69;
+    (=>>>ucs@unicode   . #x793C)       ; &g2-J0-4E69;
+    (=>>>jis-x0208     . #x4E69)       ; &g2-J0-4E69; [46-73]
+    (=>>>jis-x0213-1   . #x4E69)       ; &g2-J0-4E69; [46-73]
+    (=>>>gt            . 31490)        ; &g2-J0-4E69;
     (->subsumptive
      ((morohashi-daikanwa      24626 1)
       (=ucs@jis                  . #x793C)     ; &GT-31490;