From 4a621d2001abcea3a935f636f79af5bb9c71d3f5 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 6 Nov 2004 16:35:56 +0000 Subject: [PATCH] (update-ideograph-radical-table): Check every absolute features matched to `ideographic-radical@DOMAIN' instead of using `char-db-feature-domains'. --- lisp/utf-2000/ideograph-util.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) 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 -- 1.7.10.4