(GT-K00182): Unify BC-8960.

[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 82ea653..eaab82e 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -166,10 +166,12 @@
     ideograph-hanziku-11
     ideograph-hanziku-12
     =gt-k
+    =ucs@iso
     =ucs@unicode
     =big5
     =big5-eten
     =jis-x0208@1997
+    =zinbun-oracle
     =jef-china3))
 
 (defun char-db-make-char-spec (char)
@@ -401,7 +403,7 @@
    (format
     (cond ((memq name '(=daikanwa
                        =daikanwa@rev1 =daikanwa@rev2
-                       =gt =gt-k =cbeta))
+                       =gt =gt-k =cbeta =zinbun-oracle))
           "(%-18s . %05d)\t; %c")
          ((eq name 'mojikyo)
           "(%-18s . %06d)\t; %c")
@@ -907,9 +909,11 @@
                          (string-match "^->same" (symbol-name name))
                          (string-match "^->original" (symbol-name name))
                          (string-match "^->ancient" (symbol-name name))
+                         (string-match "^->Oracle-Bones" (symbol-name name))
                          ))
                 )
                ((or (eq name 'ideographic-structure)
+                    (eq name 'ideographic-combination)
                     (eq name 'ideographic-)
                     (string-match "^\\(->\\|<-\\)" (symbol-name name)))
                 (insert (format "(%-18s%s " name line-breaking))