Reformatted.

[chise/xemacs-chise.git-] / lisp / utf-2000 / char-db-util.el

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 168a162..c18d2f0 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -222,6 +222,7 @@
     ethiopic-ucs
     =big5-cdp
     =gt
+    =>>gt
     ideograph-daikanwa-2
     ideograph-daikanwa
     =cbeta
@@ -240,16 +241,21 @@
     =gt-k
     =ucs@iso
     =ucs@unicode
-    <=>jis-x0208
-    <=>jis-x0208@1997
-    <=>jis-x0213-1
-    <=>jis-x0213-1@2000
-    <=>jis-x0213-1@2004
+    =>>jis-x0208
+    =>jis-x0208
+    =>jis-x0208@1997
+    =>>jis-x0213-1
+    =>jis-x0213-1
+    =>jis-x0213-1@2000
+    =>jis-x0213-1@2004
+    =>>jis-x0213-2
+    =>jis-x0213-2
     =big5
     =big5-eten
     =zinbun-oracle
     =ruimoku-v6
-    =jef-china3))
+    =jef-china3
+    =shinjigen))
 
 (defun char-db-make-char-spec (char)
   (let (ret char-spec)
@@ -494,7 +500,7 @@
           "(%-18s . %04d)\t; %c")
          ((or (memq name '(=daikanwa
                            =daikanwa@rev1 =daikanwa@rev2
-                           =gt <=>gt =gt-k =cbeta =zinbun-oracle))
+                           =gt =>>gt =>gt =gt-k =cbeta =zinbun-oracle))
               (string-match "^=adobe-" (symbol-name name)))
           "(%-18s . %05d)\t; %c")
          ((eq name 'mojikyo)