From: tomo <tomo>
Date: Thu, 10 Mar 2011 14:31:50 +0000 (+0000)
Subject: (char-db-insert-ccs-feature): Add setting for `=>>>gt'.
X-Git-Tag: r21-4-22-chise-0_25-6^20~123
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=72c4155804e3c6156629e2800fc473f3897e4d72;p=chise%2Fxemacs-chise.git

(char-db-insert-ccs-feature): Add setting for `=>>>gt'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index b36cea8..00cde18 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -467,12 +467,12 @@
 	   "(%-18s .  %04d)\t; %c")
 	  ((eq name '=shinjigen@1ed/24pr)
 	   "(%-18s . %04d)\t; %c")
-	  ((or (memq name '(=daikanwa
+	  ((or (memq name '(=daikanwa =>>daikanwa =>daikanwa
 			    =daikanwa@rev1 =daikanwa@rev2
 			    =daikanwa/+p =daikanwa/+2p
-			    =>>daikanwa =>daikanwa
-			    =gt =>>gt =>gt =gt-k =>>gt-k =>gt-k =cbeta
-			    =zinbun-oracle =>zinbun-oracle))
+			    =gt =>>>gt =>>gt =>gt
+			    =gt-k =>>gt-k =>gt-k
+			    =cbeta =zinbun-oracle =>zinbun-oracle))
 	       (string-match "^=adobe-" (symbol-name name)))
 	   "(%-18s . %05d)\t; %c")
 	  ((memq name '(=hanyo-denshi/ks =>>hanyo-denshi/ks mojikyo))