(J97-4B4B): Use `=>jis-x0208@1997' instead of `=jis-x0208@1997'.

(J97-453F): Ditto.
(U+985A): Unify abstract JX1-7E23.
(GT-58556): Use U+985B instead of U+985A as the parent.

diff --git a/lisp/utf-2000/Ideograph-R181-Leaf.el b/lisp/utf-2000/Ideograph-R181-Leaf.el
index 5d13720..01577c8 100644 (file)
--- a/lisp/utf-2000/Ideograph-R181-Leaf.el
+++ b/lisp/utf-2000/Ideograph-R181-Leaf.el
@@ -2106,8 +2106,12 @@
       ))
     ))
 (define-char
+  '((ideographic-radical . 181)        ; ⾴
+    (=>jis-x0208@1997  . #x4B4B)       ; &J97-4B4B; [43-43]
+    ))
+(define-char
   '((<-denotational
-     ((=jis-x0208@1997   . #x4B4B)     ; &J97-4B4B; [43-43]
+     ((=>jis-x0208@1997          . #x4B4B)     ; &J97-4B4B; [43-43]
       ))
     (ideographic-radical . 181)        ; ⾴
     (ideographic-strokes . 7)
@@ -2124,12 +2128,8 @@
     (=daikanwa         . 43496)        ; &I-M-43496;
     ))
 (define-char
-  '((ideographic-radical . 181)        ; ⾴
-    (=jis-x0208@1997   . #x4B4B)       ; &J97-4B4B; [43-43]
-    ))
-(define-char
   '((<-denotational
-     ((=jis-x0208@1997   . #x4B4B)     ; &J97-4B4B; [43-43]
+     ((=>jis-x0208@1997          . #x4B4B)     ; &J97-4B4B; [43-43]
       ))
     (ideographic-strokes . 6)
     (total-strokes      . 15)
@@ -3805,13 +3805,20 @@
       ))
     ))
 (define-char
+  '((ideographic-radical . 181)        ; ⾴
+    (ideographic-strokes . 10)
+    (total-strokes      . 19)
+    (=>jis-x0208@1997  . #x453F)       ; &J97-453F; [37-31]
+    ))
+(define-char
   '((<-denotational
-     ((=jis-x0208@1997   . #x453F)     ; &J97-453F; [37-31]
+     ((=>jis-x0208@1997          . #x453F)     ; &J97-453F; [37-31]
       ))
     (ideographic-radical . 181)        ; ⾴
     (ideographic-strokes . 10)
     (total-strokes      . 19)
     (=ucs              . #x985A)       ; 顚
+    (=>jis-x0213-1     . #x7E23)       ; 顚 [94-03]
     (->subsumptive
      ((=ucs@unicode      . #x985A)     ; &GT-58555;
       (=jis-x0208@1978   . #x453F)     ; &GT-58555; [37-31]
@@ -3826,24 +3833,8 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 181)        ; ⾴
-    (ideographic-strokes . 10)
-    (total-strokes      . 19)
-    (=jis-x0208@1997   . #x453F)       ; &J97-453F; [37-31]
-    ))
-(define-char
   '((<-denotational
-     ((=ucs              . #x985A)     ; 顚
-      ))
-    (ideographic-radical . 181)        ; ⾴
-    (ideographic-strokes . 10)
-    (total-strokes      . 19)
-    (=gt               . 58556)        ; &GT-58556;
-    (=gt-pj-8          . #x4230)       ; &GT-58556; [34-16]
-    ))
-(define-char
-  '((<-denotational
-     ((=jis-x0208@1997   . #x453F)     ; &J97-453F; [37-31]
+     ((=>jis-x0208@1997          . #x453F)     ; &J97-453F; [37-31]
       ))
     (ideographic-radical . 181)        ; ⾴
     (ideographic-strokes . 10)
@@ -3886,6 +3877,16 @@
     (=jef-china3       . #x6CFC)       ; &I-JC3-6CFC;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs              . #x985B)     ; 顛
+      ))
+    (ideographic-radical . 181)        ; ⾴
+    (ideographic-strokes . 10)
+    (total-strokes      . 19)
+    (=gt               . 58556)        ; &GT-58556;
+    (=gt-pj-8          . #x4230)       ; &GT-58556; [34-16]
+    ))
+(define-char
   '((ideographic-radical . 181)        ; ⾴
     (ideographic-strokes . 10)
     (total-strokes      . 19)