From: tomo <tomo>
Date: Wed, 16 Mar 2011 19:48:44 +0000 (+0000)
Subject: (insert-char-attributes): Use `char-feature-base-name=' for
X-Git-Tag: r21-4-22-chise-0_25-6^20~101
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=52ecda5997b89b46980c8f15822dac91f50613d4;p=chise%2Fxemacs-chise.git

(insert-char-attributes): Use `char-feature-base-name=' for
`=decomposition' and `=>decomposition'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 00cde18..e9d96f0 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -1110,8 +1110,10 @@
 		     (eq name 'ideographic-combination)
 		     (eq name 'ideographic-)
 		     (eq name '=decomposition)
-		     (string-match "^=>*decomposition\\(@[^*]+\\)?$"
-				   (symbol-name name))
+		     (char-feature-base-name= '=decomposition name)
+                     (char-feature-base-name= '=>decomposition name)
+                     ;; (string-match "^=>*decomposition\\(@[^*]+\\)?$"
+                     ;;               (symbol-name name))
 		     (string-match "^\\(->\\|<-\\)[^*]*$" (symbol-name name))
 		     (string-match "^\\(->\\|<-\\)[^*]*\\*sources$"
 				   (symbol-name name))