direction     l2r
                  =>iso-ir      177
                  mother        =>ucs@unicode))
+  (make-charset '=>ucs@JP
+               "UCS Representative characters for Japanese usual unification"
+               '(long-name     "UCS characters for JP"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =>ucs@jis))
   (make-charset '=>ucs@ks
                "UCS Representative characters for Korean Standards"
                '(long-name     "UCS characters for KS"