(A-IWDSU+612E): New abstract node.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R138-Stopping.el

diff --git a/lisp/utf-2000/Ideograph-R138-Stopping.el b/lisp/utf-2000/Ideograph-R138-Stopping.el
index 5c81fcf..e316a10 100644 (file)
--- a/lisp/utf-2000/Ideograph-R138-Stopping.el
+++ b/lisp/utf-2000/Ideograph-R138-Stopping.el
@@ -3,6 +3,7 @@
   '((ideographic-radical . 138)        ; ⾉
     (ideographic-strokes . 0)
     (=ucs              . #x826E)       ; 艮
+    (=>iwds-1          .  0199)        ; 艮
     ))
 (define-char
   '((<-denotational
@@ -62,6 +63,34 @@
       ))
     (ideographic-radical . 138)        ; ⾉
     (ideographic-strokes . 0)
+    (=>big5-cdp                . #x8B7C)       ; &IWDS1-357;
+    (=>iwds-1          .  0357)        ; &IWDS1-357;
+    ))
+(define-char
+  '((<-denotational
+     ((=>iwds-1                  .  0357)      ; &IWDS1-357;
+      ))
+    (ideographic-radical . 138)        ; ⾉
+    (ideographic-strokes . 0)
+    (total-strokes      . 6)
+    (=gt-k             . 02400)        ; &CDP-v001-8B7C;
+    (=gt-pj-k1         . #x3439)       ; &CDP-v001-8B7C; [20-25]
+    (=big5-cdp-var-001 . #x8B7C)       ; &CDP-v001-8B7C;
+    (->subsumptive
+     ((==gt-k            . 02400)      ; &g2-GT-K02400;
+      (==gt-pj-k1        . #x3439)     ; &g2-GT-K02400; [20-25]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>iwds-1                  .  0357)      ; &IWDS1-357;
+      ))
+    (<-denotational@component
+     ((=>ucs@component   . #x7680)     ; &A-compU+7680;
+      (=>iwds-1                  .  0355)      ; &A-compU+7680;
+      ))
+    (ideographic-radical . 138)        ; ⾉
+    (ideographic-strokes . 0)
     (total-strokes      . 5)
     (=big5-cdp         . #x8B7C)       ; &CDP-8B7C;
     (<-simplified@component