X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fchar-db-util.el;h=537abae0b6b08da2b4c60fdff9d9c4c39935af42;hb=802def081c4df46101fd5319c4b7a2fcb90d387f;hp=459ec59b234ca95df28d5558d5edde9ea5872376;hpb=c032115b3c2c5fc74645652865bc726f5a430c98;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 459ec59..537abae 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -228,6 +228,7 @@
     =>gt
     =>big5-cdp
     =>daikanwa
+    =>daikanwa/ho
     =>cns11643-7
     =big5
     =big5-eten
@@ -485,13 +486,14 @@
        ((memq name '(=shinjigen
 		     =shinjigen@1ed
 		     =shinjigen@rev =shinjigen/+p@rev
-		     =daikanwa/ho =>>daikanwa/ho))
+		     =daikanwa/ho =>>daikanwa/ho =>daikanwa/ho))
 	"(%-18s .  %04d)\t; %c")
        ((eq name '=shinjigen@1ed/24pr)
 	"(%-18s . %04d)\t; %c")
        ((or (memq name '(=daikanwa =>>daikanwa =>daikanwa
 			 =daikanwa@rev1 =daikanwa@rev2
-			 =daikanwa/+p =daikanwa/+2p
+			 =daikanwa/+p =>>daikanwa/+p
+			 =daikanwa/+2p =>>daikanwa/+2p
 			 =gt =>>>gt =>>gt =+>gt =>gt
 			 =gt-k =>>gt-k =>gt-k
 			 =adobe-japan1-0 =>>>adobe-japan1-0 =>>adobe-japan1-0
@@ -507,7 +509,7 @@
             ;; (string-match "^=adobe-" (symbol-name name))
 	    )
 	"(%-18s . %05d)\t; %c")
-       ((memq name '(=hanyo-denshi/ks =>>hanyo-denshi/ks mojikyo))
+       ((memq name '(=hanyo-denshi/ks =>>>hanyo-denshi/ks =>>hanyo-denshi/ks mojikyo))
 	"(%-18s . %06d)\t; %c")
        ((>= (charset-dimension name) 2)
 	"(%-18s . #x%04X)\t; %c")