(J97-3975): Use `=>jis-x0208@1997' instead of `=jis-x0208@1997'; use

`ideographic-{radical|strokes}@jis/b' instead of
`ideographic-{radical|strokes}'; add `ideographic-radical@jis/a'.

diff --git a/lisp/utf-2000/Ideograph-R203-Black.el b/lisp/utf-2000/Ideograph-R203-Black.el
index 146655a..301a4cb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R203-Black.el
+++ b/lisp/utf-2000/Ideograph-R203-Black.el
@@ -1,7 +1,7 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((<-denotational
-     ((=jis-x0208@1997   . #x3975)     ; &J97-3975; [25-85]
+     ((=>jis-x0208@1997          . #x3975)     ; &J97-3975; [25-85]
       ))
     (ideographic-radical . 203)        ; ⿊
     (ideographic-strokes . 0)
@@ -12,7 +12,7 @@
     (=cns11643-1       . #x6329)       ; &I-C1-6329; [67-09]
     (=jis-x0213-1      . #x7E72)       ; &I-JX1-7E72; [94-82]
     (=daikanwa         . 48038)        ; &I-M-48038;
-    (=shinjigen@1ed    .  9818)        ; 黑
+    (=shinjigen                .  9818)        ; 黑
     (=jef-china3       . #x6FD6)       ; &I-JC3-6FD6;
     ))
 (define-char
@@ -28,8 +28,14 @@
       ))
     ))
 (define-char
+  '((ideographic-radical@jis/a . 86)   ; ⽕
+    (ideographic-radical@jis/b . 203)  ; ⿊
+    (ideographic-strokes@jis/b . 0)
+    (=>jis-x0208@1997  . #x3975)       ; &J97-3975; [25-85]
+    ))
+(define-char
   '((<-denotational
-     ((=jis-x0208@1997   . #x3975)     ; &J97-3975; [25-85]
+     ((=>jis-x0208@1997          . #x3975)     ; &J97-3975; [25-85]
       ))
     (ideographic-radical@ucs . 203)    ; ⿊
     (ideographic-strokes@ucs . 0)
@@ -61,11 +67,6 @@
     ))
 (define-char
   '((ideographic-radical . 203)        ; ⿊
-    (ideographic-strokes . 0)
-    (=jis-x0208@1997   . #x3975)       ; &J97-3975; [25-85]
-    ))
-(define-char
-  '((ideographic-radical . 203)        ; ⿊
     (ideographic-strokes . 1)
     (total-strokes      . 13)
     (=ucs              . #x4D5D)       ; 䵝