X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R008-Lid.el;h=1de954999148b7f1c6563b18ff0c1962819778cd;hb=4a583b913af361c8be53cccecd30143657e6c48e;hp=4c1c2a4a528eaeb9ff3c635820acff9b4ed5a910;hpb=71fc04ad4e7acbca981571e8a66dea11bc8aa1d1;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index 4c1c2a4..1de9549 100644
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -1024,6 +1024,13 @@
       (=>iwds-1		  .  0345)	; &IWDS1-345;
       ))
     (ideographic-radical . 8)	; ⼇
+    (=ucs		. #x342C)	; 㐬
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x342C)	; 㐬
+      ))
+    (ideographic-radical . 8)	; ⼇
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -1032,7 +1039,8 @@
       )
      ((=ucs		  . #x2BDA7)	; 𫶧
       ))
-    (=ucs		. #x342C)	; 㐬
+    (=>ucs@iwds-1	. #x342C)	; &A-IWDSU+342C;
+    (=>ucs@unicode	. #x342C)	; &A-IWDSU+342C;
     (->subsumptive
      ((ideographic-strokes . 5)
       (total-strokes	   . 7)