From: tomo <tomo>
Date: Wed, 30 Nov 2005 14:50:04 +0000 (+0000)
Subject: (char-db-insert-ccs-feature): Format each value of `=adobe-*' as a
X-Git-Tag: r21-4-17-chise-0_22-6^20~220
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cad27acbcc0d333e59cd583d980925b8ef663348;p=chise%2Fxemacs-chise.git-

(char-db-insert-ccs-feature): Format each value of `=adobe-*' as a
digit value.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index abea9e1..9a51977 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -439,9 +439,10 @@
 (defun char-db-insert-ccs-feature (name value line-breaking)
   (insert
    (format
-    (cond ((memq name '(=daikanwa
-			=daikanwa@rev1 =daikanwa@rev2
-			=gt =gt-k =cbeta =zinbun-oracle))
+    (cond ((or (memq name '(=daikanwa
+			    =daikanwa@rev1 =daikanwa@rev2
+			    =gt =gt-k =cbeta =zinbun-oracle))
+	       (string-match "^=adobe-" (symbol-name name)))
 	   "(%-18s . %05d)\t; %c")
 	  ((eq name 'mojikyo)
 	   "(%-18s . %06d)\t; %c")