X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Futf-2000%2Fchar-db-util.el;h=eaab82ea14ffe7f5a753a3f160bf288688348b86;hb=31b8e156c51ef5962cee6e715e34af022f63d43f;hp=82ea6533a5dbf9c54afd1503aecaa45b54044a13;hpb=1011447a56b8b39d9614d60c2b4097eba353496f;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 82ea653..eaab82e 100644
--- 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))