Add some Adobe-Japan1-5 code points.

(U-000200A2): Use `->denotational'.
(U+3406): Use `->subsumptive'.

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index a6cb825..3a1da2f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -315,6 +315,7 @@
       (=daikanwa         . 00120)      ; &I-M-00120;
       (=jef-china3       . #x41B7)     ; &I-JC3-41B7;
       (=ucs@unicode      . #x4E47)     ; &GT-00167;
+      (=adobe-japan1-5   . 17239)      ; &GT-00167;
       )
      ((=jis-x0212        . #x3032)     ; &JX2-2129; [16-18]
       (=cns11643-2       . #x2128)     ; &I-C2-2128; [01-08]
@@ -374,6 +375,7 @@
     (=jis-x0213-1-2000 . #x2E58)       ; &I-JX1-2E58; [14-56]
     (=hanziku-1                . #xDEE9)       ; &I-HZK01-DEE9;
     (=jef-china3       . #x41B8)       ; &I-JC3-41B8;
+    (=adobe-japan1-5   . 16795)        ; 凢
     (<-vulgar
      ((=jis-x0208        . #x4B5E)     ; &GT-02286; [43-62]
       (=gb2312           . #x3732)     ; &I-G0-3732; [23-18]
@@ -961,6 +963,15 @@
   '((ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 5)
     (total-strokes      . 6)
+    (=ucs              . #x200A2)      ; 𠂢
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x200A2)    ; 𠂢
+      ))
+    (ideographic-radical . 4)  ; ⼃
+    (ideographic-strokes . 5)
+    (total-strokes      . 6)
     (hanyu-dazidian    1 69 19)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
@@ -970,17 +981,18 @@
       )
      ((=big5-cdp         . #x8C66)     ; &CDP-8C66;
       ))
-    (=ucs              . #x200A2)      ; 𠂢
-    (=cns11643-4       . #x2226)       ; &I-C4-2226; [02-06]
+    (=cns11643-4       . #x2226)       ; &GT-00195; [02-06]
     (=big5-cdp         . #x8CB4)       ; &I-CDP-8CB4;
     (=gt               . 00195)        ; &I-GT-00195;
     (=gt-k             . 01779)        ; &I-GT-K01779;
     (=gt-pj-2          . #x312C)       ; &I-GT-00195; [17-12]
     (=daikanwa         . 00138)        ; &I-M-00138;
+    (=ucs@iso          . #x200A2)      ; &GT-00195;
     ))
 (define-char
-  '((=>ucs             . #x200A2)      ; 𠂢
-    (morohashi-daikanwa        138 0 2)
+  '((<-denotational
+     ((=ucs              . #x200A2)    ; 𠂢
+      ))
     (ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 5)
     (total-strokes      . 6)
@@ -989,6 +1001,7 @@
     (=gt-k             . 01780)        ; &I-GT-K01780;
     (=gt-pj-9          . #x4D49)       ; &I-GT-00198; [45-41]
     (=ucs@jis          . #x200A2)      ; &GT-00198;
+    (=adobe-japan1-5   . 17240)        ; &GT-00198;
     ))
 (define-char
   '((ideographic-radical . 4)  ; ⼃
@@ -1009,6 +1022,7 @@
       (=jef-china3       . #x41B9)     ; &I-JC3-41B9;
       (=ucs@cns                  . #x4E51)     ; &CDP-89F2;
       (=ucs@jis                  . #x4E51)     ; &CDP-89F2;
+      (=adobe-japan1-5   . 17241)      ; &CDP-89F2;
       )
      ((=ucs@unicode      . #x4E51)     ; &UU+4E51;
       ))
@@ -1031,10 +1045,16 @@
     (ideographic-strokes . 5)
     (total-strokes      . 6)
     (=ucs              . #x3406)       ; 㐆
-    (=jis-x0213-2-2000 . #x212D)       ; &I-JX2-212D; [01-13]
-    (=gt               . 00199)        ; &I-GT-00199;
-    (=gt-k             . 02202)        ; &I-GT-K02202;
-    (=gt-pj-9          . #x4E2A)       ; &I-GT-00199; [46-10]
+    (->subsumptive
+     ((=jis-x0213-2-2000  . #x212D)    ; &GT-00199; [01-13]
+      (=gt               . 00199)      ; &I-GT-00199;
+      (=gt-k             . 02202)      ; &I-GT-K02202;
+      (=gt-pj-9                  . #x4E2A)     ; &I-GT-00199; [46-10]
+      (=ucs@jis                  . #x3406)     ; &GT-00199;
+      (=adobe-japan1-5   . 17242)      ; &GT-00199;
+      )
+     ((=ucs@unicode      . #x3406)     ; &UU+3406;
+      ))
     ))
 (define-char
   '((ideographic-radical . 4)  ; ⼃