From: tomo <tomo>
Date: Sat, 29 Oct 2011 23:34:56 +0000 (+0000)
Subject: (char-db-insert-ccs-feature): Add setting for `=+>adobe-japan1'; don't
X-Git-Tag: r21-4-22-chise-0_25-11^20~371
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8f75cca7b6c19f3648891993007cf1885ba0e9dd;p=chise%2Fxemacs-chise.git

(char-db-insert-ccs-feature): Add setting for `=+>adobe-japan1'; don't
use `string-match' for `=adobe-japan1-{0..6}'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index daf110c..874722d 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -487,10 +487,13 @@
 			 =daikanwa/+p =daikanwa/+2p
 			 =gt =>>>gt =>>gt =+>gt =>gt
 			 =gt-k =>>gt-k =>gt-k
-			 =>>adobe-japan1
+			 =adobe-japan1-0 =adobe-japan1-1 =adobe-japan1-2
+			 =adobe-japan1-3 =adobe-japan1-4 =adobe-japan1-5
+			 =adobe-japan1-6 =>>adobe-japan1 =+>adobe-japan1
 			 =cbeta =>>cbeta
 			 =zinbun-oracle =>zinbun-oracle))
-	    (string-match "^=adobe-" (symbol-name name)))
+            ;; (string-match "^=adobe-" (symbol-name name))
+	    )
 	"(%-18s . %05d)\t; %c")
        ((memq name '(=hanyo-denshi/ks =>>hanyo-denshi/ks mojikyo))
 	"(%-18s . %06d)\t; %c")