X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fchar-db-util.el;h=efa0cabac59fe65757e06ca10b029eb044b423f3;hb=004d470413b1cae0ee87df5415fc3cc86d4d6a7b;hp=584bfa7f359ed1833ed28eab1a55ac51e126f527;hpb=a4dc561f7990c666260f319687f85a2fc99116ad;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 584bfa7..efa0cab 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -169,10 +169,13 @@
     =>jis-x0213-1
     =>jis-x0213-1@2000
     =>jis-x0213-1@2004
+    =>jis-x0213-2@usual
     =>jis-x0213-2
     ==>ucs@bucs
     =>ucs@iso
     =>ucs@unicode
+    =>ucs@jis
+    =>ucs@JP
     =>ucs@cns
     =>>ucs@unicode
     =>>ucs@jis
@@ -645,7 +648,7 @@
 			name value (decode-char '=ucs value)
 			line-breaking))
 	(setq attributes (delq name attributes))))
-    (dolist (name '(=>ucs@gb =>ucs@jis =>ucs@ks =>ucs@big5))
+    (dolist (name '(=>ucs@gb =>ucs@ks =>ucs@big5))
       (when (and (memq name attributes)
 		 (setq value (get-char-attribute char name)))
 	(insert (format "(%-18s . #x%04X)\t; %c%s"