From: tomo Date: Sat, 6 Nov 2004 16:35:56 +0000 (+0000) Subject: (update-ideograph-radical-table): Check every absolute features X-Git-Tag: r21-4-15-u2km-0_21-32-a~2^2~77 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4a621d2001abcea3a935f636f79af5bb9c71d3f5;p=chise%2Fxemacs-chise.git.1 (update-ideograph-radical-table): Check every absolute features matched to `ideographic-radical@DOMAIN' instead of using `char-db-feature-domains'. --- diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index c40b619..a305b39 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -255,10 +255,17 @@ (let (ret rret radical script dest) (dolist (feature (cons 'ideographic-radical - (mapcar - (lambda (domain) - (intern (format "%s@%s" 'ideographic-radical domain))) - char-db-feature-domains))) + (progn + (dolist (feature (char-attribute-list)) + (if (string-match "^ideographic-radical@[^@*]+$" + (symbol-name feature)) + (setq dest (cons feature dest)))) + dest) + ;; (mapcar + ;; (lambda (domain) + ;; (intern (format "%s@%s" 'ideographic-radical domain))) + ;; char-db-feature-domains) + )) (map-char-attribute (lambda (chr radical) (dolist (char (append