(U+8201-itaiji-006): New character; use `<-denotational' for

A-U+8201-itaiji-004.
(U+22371-itaiji-006): New character; use `<-denotational' for
A-U+22371-itaiji-003.

diff --git a/lisp/utf-2000/Ideograph-R134-Mortar.el b/lisp/utf-2000/Ideograph-R134-Mortar.el
index 0868f5c..ed8fa2e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R134-Mortar.el
+++ b/lisp/utf-2000/Ideograph-R134-Mortar.el
@@ -554,6 +554,23 @@
     (=big5-cdp-itaiji-002 . #x88E5)    ; &CDP-i002-88E5;
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs-itaiji-004          . #x8201)     ; &A-U-i004+8201;
+      ))
+    (ideographic-radical . 134)        ; ⾅
+    (ideographic-strokes . 1)
+    (total-strokes      . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=big5-cdp         . #x8B56)     ; &CDP-8B56;
+      )
+     ((=ucs              . #x4E00)     ; 一
+      ))
+    (=ucs-itaiji-006   . #x8201)       ; &U-i006+8201;
+    ))
+(define-char
   '((ideographic-radical . 134)        ; ⾅
     (ideographic-strokes . 1)
     (ideographic-structure
@@ -607,10 +624,6 @@
     ))
 (define-char
   '((ideographic-radical . 134)        ; ⾅
-    (=>big5-cdp                . #x86FE)       ; &A-CDP-86FE;
-    ))
-(define-char
-  '((ideographic-radical . 134)        ; ⾅
     (ideographic-strokes . 1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -624,6 +637,10 @@
     (=>ucs-itaiji-004  . #x8201)       ; &A-U-i004+8201;
     ))
 (define-char
+  '((ideographic-radical . 134)        ; ⾅
+    (=>big5-cdp                . #x86FE)       ; &A-CDP-86FE;
+    ))
+(define-char
   '((<-denotational
      ((=>ucs-itaiji-004          . #x8201)     ; &A-U-i004+8201;
       ))
@@ -3872,7 +3889,7 @@
       ))
     (=mj               . 045991)       ; &MJ045991;
     (=hanyo-denshi/ks  . 337270)       ; &MJ045991;
-    (=daikanwa         . 30207)        ; &HD-KS-337270;
+    (=daikanwa         . 30207)        ; &I-M-30207;
     (<-formed@shuowen
      ((=ucs@iso                  . #x28EAB)    ; &MJ052381;
       (=mj               . 052381)     ; &MJ052381;
@@ -4549,6 +4566,23 @@
     (=ucs-itaiji-010   . #x8208)       ; &U-i010+8208;
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs-itaiji-003          . #x22371)    ; &A-U-i003+22371;
+      ))
+    (ideographic-radical . 134)        ; ⾅
+    (ideographic-strokes . 7)
+    (total-strokes      . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW")
+      (=ucs              . #x2FF6)     ; ⿶
+      )
+     ((=ucs-itaiji-006   . #x8201)     ; &U-i006+8201;
+      )
+     ((=ucs              . #x56DF)     ; 囟
+      ))
+    (=ucs-itaiji-006   . #x22371)      ; &U-i006+22371;
+    ))
+(define-char
   '((ideographic-radical . 134)        ; ⾅
     (ideographic-strokes . 7)
     (total-strokes      . 14)