Apply new glyph-image conventions for `ks-x1001'.

diff --git a/lisp/utf-2000/Ideograph-R180-Sound.el b/lisp/utf-2000/Ideograph-R180-Sound.el
index b40318b..85e7ccb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R180-Sound.el
+++ b/lisp/utf-2000/Ideograph-R180-Sound.el
@@ -29,6 +29,7 @@
     (=ucs@unicode      . #x97F3)       ; &GT-58109;
     (=jis-x0208                . #x323B)       ; &GT-58109; [18-27]
     (=gb2312           . #x5274)       ; &I-G0-5274; [50-84]
+    (=ks-x1001         . #x6B65)       ; &I-K0-6B65; [75-69]
     (=jis-x0213-1      . #x323B)       ; &I-JX1-323B; [18-27]
     (=gt               . 58109)        ; &I-GT-58109;
     (=gt-k             . 05029)        ; &I-GT-K05029;
@@ -36,7 +37,7 @@
     (->subsumptive
      ((==ucs@jis         . #x97F3)     ; &R-GT-58109;
       (==ucs@ks                  . #x97F3)     ; &R-GT-58109;
-      (=ks-x1001         . #x6B65)     ; &R-GT-58109; [75-69]
+      (==ks-x1001        . #x6B65)     ; &R-GT-58109; [75-69]
       (==jis-x0208       . #x323B)     ; &R-GT-58109; [18-27]
       (==jis-x0213-1     . #x323B)     ; &R-GT-58109; [18-27]
       (==gt              . 58109)      ; &R-GT-58109;
@@ -980,9 +981,10 @@
     (ideographic-radical . 180)        ; ⾳
     (ideographic-strokes . 13)
     (total-strokes      . 22)
-    (=ucs@unicode      . #x9800)       ; &UU+9800;
+    (=ucs@unicode      . #x9800)       ; &K0-7B61;
+    (=ks-x1001         . #x7B61)       ; &K0-7B61; [91-65]
     (->subsumptive
-     ((=ks-x1001         . #x7B61)     ; &K0-7B61; [91-65]
+     ((==ks-x1001        . #x7B61)     ; &R-K0-7B61; [91-65]
       )
      ((==ucs@unicode     . #x9800)     ; &R-UU+9800;
       ))