(M-07097): New character.

(U+374E): Map to M-07097.
(M-07354): Map to U-00021AD2.
(U-00021AD2): Map to M-07354.
(M-28841): New character.
(U-00021B18): Map to M-28841.

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index cca3214..c085a47 100644 (file)
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -790,7 +790,15 @@
     (=cns11643-2       . #x235D)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 40) ; ⼧
+  '((=>ucs             . #x374E)       ; 㝎
+    (ideographic-radical . 40) ; ⼧
+    (ideographic-strokes . 4)
+    (total-strokes      . 7)
+    (=daikanwa         . 07097)        ; �����
+    ))
+(define-char
+  '((morohashi-daikanwa        7097 0 0)
+    (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 4)
     (total-strokes      . 7)
     (=ucs              . #x374E)       ; 㝎
@@ -5217,12 +5225,21 @@
     (=cns11643-7       . #x3757)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 40) ; ⼧
+  '((=>ucs             . #x21AD2)      ; 𡫒
+    (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 14)
     (total-strokes      . 17)
     (=daikanwa         . 07354)        ; �����
     ))
 (define-char
+  '((morohashi-daikanwa        7354 0 0)
+    (ideographic-radical . 40) ; ⼧
+    (ideographic-strokes . 14)
+    (total-strokes      . 17)
+    (=ucs              . #x21AD2)      ; 𡫒
+    (=cns11643-7       . #x3759)       ; �����
+    ))
+(define-char
   '((=>ucs             . #x21ADD)      ; 𡫝
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 14)
@@ -5292,13 +5309,6 @@
     (=cns11643-5       . #x5B38)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 40) ; ⼧
-    (ideographic-strokes . 14)
-    (total-strokes      . 17)
-    (=ucs              . #x21AD2)      ; 𡫒
-    (=cns11643-7       . #x3759)       ; �����
-    ))
-(define-char
   '((=>ucs             . #x21ADE)      ; 𡫞
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 15)
@@ -5922,7 +5932,17 @@
     (=cbeta            . 03865)        ; �����
     ))
 (define-char
-  '((ideographic-radical . 40) ; ⼧
+  '((=>ucs             . #x21B18)      ; 𡬘
+    (ideographic-radical@ucs . 40)     ; ⼧
+    (ideographic-strokes@ucs . 23)
+    (ideographic-radical@daikanwa . 124)       ; ⽻
+    (ideographic-strokes@daikanwa . 20)
+    (total-strokes      . 26)
+    (=daikanwa         . 28841)        ; �����
+    ))
+(define-char
+  '((morohashi-daikanwa        28841 0 2)
+    (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 23)
     (total-strokes      . 26)
     (=ucs              . #x21B18)      ; 𡬘