From 58bc2d63128b88fa53026a784dc97a90bbbfd408 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 10 Jan 2024 10:07:25 +0900
Subject: [PATCH] (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.

---
 lisp/utf-2000/Ideograph-R134-Mortar.el |   44 ++++++++++++++++++++++++++++----
 1 file changed, 39 insertions(+), 5 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R134-Mortar.el b/lisp/utf-2000/Ideograph-R134-Mortar.el
index 0868f5c..ed8fa2e 100644
--- 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)
-- 
1.7.10.4