X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fchar-db-util.el;h=eaab82ea14ffe7f5a753a3f160bf288688348b86;hb=fbffe7af9ce38f36944579ed848f3e2d027f1b81;hp=290e69459fdd3242bb1d50e1eb476a125278ed5a;hpb=c360aac631d9935be85e907e79a487cecd55a2fc;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 290e694..eaab82e 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -171,6 +171,7 @@
     =big5
     =big5-eten
     =jis-x0208@1997
+    =zinbun-oracle
     =jef-china3))
 
 (defun char-db-make-char-spec (char)
@@ -402,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")
@@ -908,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))