Add some Adobe-Japan1-2 code points.

(U+7323): Use `->denotational' instead of `->subsumptive'.
(U-000247DC): Use `->subsumptive'.
(U+7324): Likewise.
(U-000247DD): Use `->subsumptive' to separate representative nodes.
(mother of JX1-776F): Unify G-JU+FA16, G-KU+732A and G-CU+732A instead
of U+FA16.
(JX1-776F): Unify U+FA16.
(U+7377): Unify A-JX2-7057.
(B-C278): Unify o-JU+7377 and A-CU+7377.
(C1-7664): Unify CU+7377.

diff --git a/lisp/utf-2000/Ideograph-R094-Dog.el b/lisp/utf-2000/Ideograph-R094-Dog.el
index 9b4ce44..a0727ea 100644 (file)
--- a/lisp/utf-2000/Ideograph-R094-Dog.el
+++ b/lisp/utf-2000/Ideograph-R094-Dog.el
@@ -187,6 +187,7 @@
     (=jis-x0213-2      . #x703D)       ; &I-JX2-703D; [80-29]
     (=daikanwa         . 20246)        ; &I-M-20246;
     (=jef-china3       . #x58FA)       ; &I-JC3-58FA;
+    (=adobe-japan1-2   . 08545)        ; &I-AJ1-08545;
     ))
 (define-char
   '((ideographic-radical . 94) ; ⽝
@@ -562,6 +563,7 @@
     (=jis-x0213-1      . #x7769)       ; &I-JX1-7769; [87-73]
     (=daikanwa         . 20276)        ; &I-M-20276;
     (=jef-china3       . #x58D6)       ; &I-JC3-58D6;
+    (=adobe-japan1-2   . 08546)        ; &I-AJ1-08546;
     ))
 (define-char
   '((ideographic-radical . 94) ; ⽝
@@ -3483,10 +3485,7 @@
     (=gt-k             . 08003)        ; &I-GT-K08003;
     (=gt-pj-1          . #x4376)       ; &I-GT-26237; [35-86]
     (<-simplified
-     ((=ucs@unicode      . #xFA16)     ; &M-20534;
-      (=ucs@ks           . #x732A)     ; &M-20534;
-      (=ks-x1001         . #x6E44)     ; &M-20534; [78-36]
-      (=jis-x0213-1      . #x776F)     ; &I-JX1-776F; [87-79]
+     ((=ucs              . #xFA16)     ; 猪
       (=daikanwa         . 20534)      ; &I-M-20534;
       ))
     (<-simplified*sources
@@ -3541,11 +3540,11 @@
     (ideographic-strokes . 9)
     (total-strokes      . 12)
     (=ucs              . #x7322)       ; 猢
+    (=big5             . #xDA70)       ; &I-B-DA70;
     (->subsumptive
      ((=ucs@unicode      . #x7322)     ; &M-20513;
       (=gb2312           . #x6229)     ; &M-20513; [66-09]
       (=jis-x0212        . #x4B2D)     ; &I-JSP-4B2D; [43-13]
-      (=big5             . #xDA70)     ; &I-B-DA70;
       (=daikanwa         . 20513)      ; &I-M-20513;
       (=jef-china3       . #x80D0)     ; &I-JC3-80D0;
       )
@@ -3559,29 +3558,43 @@
     (total-strokes      . 12)
     (=ucs              . #x7323)       ; 猣
     (=big5             . #xDA77)       ; &I-B-DA77;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x7323)     ; 猣
+      ))
+    (ideographic-radical . 94) ; ⽝
+    (ideographic-strokes . 9)
+    (total-strokes      . 12)
+    (=>>ucs@cns                . #x7323)       ; &G-CU+7323;
     (->subsumptive
      ((=daikanwa         . 20514)      ; &M-20514;
       )
      ((=ucs@cns                  . #x7323)     ; &C2-3D7B;
       (=cns11643-2       . #x3D7B)     ; &C2-3D7B; [29-91]
-      )
-     ((=ucs@unicode      . #x7323)     ; &UU+7323;
       ))
     ))
 (define-char
-  '((=>ucs             . #x247DC)      ; 𤟜
+  '((<-denotational
+     ((=ucs              . #x7323)     ; 猣
+      ))
     (ideographic-radical . 94) ; ⽝
     (ideographic-strokes . 9)
-    (total-strokes      . 13)
-    (=daikanwa         . 20515)        ; &M-20515;
+    (total-strokes      . 12)
+    (=ucs@unicode      . #x7323)       ; &UU+7323;
     ))
 (define-char
-  '((morohashi-daikanwa        20515 0 0)
-    (ideographic-radical . 94) ; ⽝
+  '((ideographic-radical . 94) ; ⽝
     (ideographic-strokes . 9)
     (total-strokes      . 13)
     (=ucs              . #x247DC)      ; 𤟜
-    (=cns11643-6       . #x547B)       ; &I-C6-547B; [52-91]
+    (->subsumptive
+     ((=daikanwa         . 20515)      ; &M-20515;
+      )
+     ((=ucs@iso                  . #x247DC)    ; &U-000247DC;
+      )
+     ((=cns11643-6       . #x547B)     ; &C6-547B; [52-91]
+      ))
     ))
 (define-char
   '((ideographic-radical . 94) ; ⽝
@@ -3592,30 +3605,41 @@
     (=daikanwa         . 20516)        ; &I-M-20516;
     ))
 (define-char
-  '((=>ucs             . #x7324)       ; 猤
-    (ideographic-radical . 94) ; ⽝
-    (ideographic-strokes . 9)
-    (total-strokes      . 12)
-    (=ucs@jis          . #x7324)       ; &M-20517;
-    (=jis-x0212                . #x4B2E)       ; &M-20517; [43-14]
-    (=daikanwa         . 20517)        ; &I-M-20517;
-    ))
-(define-char
-  '((morohashi-daikanwa        20517 0 0)
-    (ideographic-radical . 94) ; ⽝
+  '((ideographic-radical . 94) ; ⽝
     (ideographic-strokes . 9)
     (total-strokes      . 12)
     (=ucs              . #x7324)       ; 猤
-    (=cns11643-3       . #x3D27)       ; &I-C3-3D27; [29-07]
-    (=jef-china3       . #x58ED)       ; &I-JC3-58ED;
+    (->subsumptive
+     ((=>>>ucs@jis       . #x7324)     ; &GI-JU+7324;
+      (->subsumptive
+       ((=daikanwa         . 20517)    ; &M-20517;
+       )
+       ((=ucs@jis          . #x7324)   ; &AJ1-08547;
+       (=jis-x0212         . #x4B2E)   ; &AJ1-08547; [43-14]
+       (=adobe-japan1-2    . 08547)    ; &I-AJ1-08547;
+       ))
+      )
+     ((=>>>ucs@unicode   . #x7324)     ; &GI-UU+7324;
+      (->subsumptive
+       ((=ucs@unicode      . #x7324)   ; &UU+7324;
+       (=jef-china3        . #x58ED)   ; &UU+7324;
+       )
+       ((=cns11643-3       . #x3D27)   ; &C3-3D27; [29-07]
+       ))
+      ))
     ))
 (define-char
   '((ideographic-radical . 94) ; ⽝
     (ideographic-strokes . 9)
     (total-strokes      . 12)
     (=ucs              . #x247DD)      ; 𤟝
-    (=cns11643-5       . #x3A26)       ; &I-C5-3A26; [26-06]
-    (=daikanwa         . 20518)        ; &I-M-20518;
+    (->subsumptive
+     ((=daikanwa         . 20518)      ; &M-20518;
+      )
+     ((=ucs@iso                  . #x247DD)    ; &U-000247DD;
+      )
+     ((=cns11643-5       . #x3A26)     ; &C5-3A26; [26-06]
+      ))
     ))
 (define-char
   '((ideographic-radical . 94) ; ⽝
@@ -3632,7 +3656,7 @@
     (=gt-k             . 09212)        ; &I-GT-K09212;
     (=gt-pj-1          . #x6050)       ; &I-GT-26328; [64-48]
     (=daikanwa         . 20519)        ; &I-M-20519;
-    (=shinjigen@rev    .  4830)        ; 猥
+    (=shinjigen                .  4830)        ; 猥
     ))
 (define-char
   '((=>ucs             . #x247DE)      ; 𤟞
@@ -3859,18 +3883,21 @@
   '((<-denotational
      ((=ucs              . #x732A)     ; 猪
       ))
-    (=>ucs*            . #x732A)       ; 猪
     (ideographic-radical . 94) ; ⽝
     (ideographic-strokes . 9)
     (total-strokes      . 12)
-    (=ucs              . #xFA16)       ; 猪
+    (=>>ucs@jis                . #xFA16)       ; &G-JU+FA16;
+    (=>>ucs@ks         . #x732A)       ; &G-JU+FA16;
+    (=>>ucs@cns                . #x732A)       ; &G-JU+FA16;
     (->subsumptive
-     ((=ucs@unicode      . #xFA16)     ; &M-20534;
-      (=ucs@ks           . #x732A)     ; &M-20534;
-      (=ks-x1001         . #x6E44)     ; &M-20534; [78-36]
+     ((=>ucs*            . #x732A)     ; 猪
+      (=ucs              . #xFA16)     ; 猪
+      (=ucs@ks           . #x732A)     ; 猪
+      (=ks-x1001         . #x6E44)     ; &I-K0-6E44; [78-36]
       (=jis-x0213-1      . #x776F)     ; &I-JX1-776F; [87-79]
       (=daikanwa         . 20534)      ; &I-M-20534;
       (=jef-china3       . #x58EF)     ; &I-JC3-58EF;
+      (=adobe-japan1-2   . 08548)      ; &I-AJ1-08548;
       )
      ((=ucs@cns                  . #x732A)     ; &C3-3D29;
       (=cns11643-3       . #x3D29)     ; &C3-3D29; [29-09]
@@ -7208,6 +7235,7 @@
 (define-char
   '((ideographic-radical . 94) ; ⽝
     (=ucs              . #x7377)       ; 獷
+    (=>jis-x0213-2     . #x7057)       ; 獷 [80-55]
     ))
 (define-char
   '((<-denotational
@@ -7216,15 +7244,19 @@
     (ideographic-radical . 94) ; ⽝
     (ideographic-strokes . 15)
     (total-strokes      . 18)
-    (=big5             . #xC278)       ; &B-C278;
+    (=>ucs@JP          . #x7377)       ; &A-CU+7377;
+    (=>ucs@cns         . #x7377)       ; &A-CU+7377;
+    (=big5             . #xC278)       ; &A-CU+7377;
     (->subsumptive
-     ((=ucs@jis                  . #x7377)     ; &M-20774;
-      (=jis-x0212        . #x4B4A)     ; &M-20774; [43-42]
+     ((=ucs@jis                  . #x7377)     ; &AJ1-08549;
+      (=jis-x0212        . #x4B4A)     ; &AJ1-08549; [43-42]
       (=jis-x0213-2      . #x7057)     ; &I-JX2-7057; [80-55]
       (=daikanwa         . 20774)      ; &I-M-20774;
       (=jef-china3       . #x58F6)     ; &I-JC3-58F6;
+      (=adobe-japan1-2   . 08549)      ; &I-AJ1-08549;
       )
-     ((=cns11643-1       . #x7664)     ; &C1-7664; [86-68]
+     ((=ucs@cns                  . #x7377)     ; &C1-7664;
+      (=cns11643-1       . #x7664)     ; &C1-7664; [86-68]
       ))
     ))
 (define-char