From 2ff627503ef472942d62846d9ee0ec2596d96d62 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 21 Jun 2003 09:01:20 +0000
Subject: [PATCH] (char-ideographic-radical): Refer `char-db-feature-domains'.
 (char-ideographic-strokes): Likewise; refer
 `ideographic-radical' as the default attribute.
 (update-ideograph-radical-table): Refer
 `char-db-feature-domains'.

---
 lisp/utf-2000/ideograph-util.el |   28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index adc7564..c56844a 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -32,7 +32,7 @@
 (defun char-ideographic-radical (char &optional radical)
   (let (ret)
     (or (catch 'tag
-	  (dolist (domain '(ucs daikanwa cns))
+	  (dolist (domain char-db-feature-domains)
 	    (if (and (setq ret (get-char-attribute
 				char
 				(intern
@@ -88,20 +88,22 @@
 (defun char-ideographic-strokes (char &optional radical)
   (let (ret)
     (or (catch 'tag
-	  (dolist (domain '(ucs daikanwa cns))
-	    (if (and (setq ret (get-char-attribute
+	  (dolist (domain char-db-feature-domains)
+	    (if (and (setq ret (or (get-char-attribute
+				    char
+				    (intern
+				     (format "%s@%s"
+					     'ideographic-radical domain)))
+				   (get-char-attribute
+				    char 'ideographic-radical)))
+		     (or (eq ret radical)
+			 (null radical))
+		     (setq ret (get-char-attribute
 				char
 				(intern
 				 (format "%s@%s"
-					 'ideographic-radical domain))))
-		     (or (eq ret radical)
-			 (null radical)))
-		(throw 'tag
-		       (get-char-attribute
-			char
-			(intern
-			 (format "%s@%s"
-				 'ideographic-strokes domain)))))))
+					 'ideographic-strokes domain)))))
+		(throw 'tag ret))))
 	(catch 'tag
 	  (dolist (cell (get-char-attribute char 'ideographic-))
 	    (if (and (setq ret (plist-get cell :radical))
@@ -127,7 +129,7 @@
 (defun update-ideograph-radical-table ()
   (interactive)
   (let (ret radical script)
-    (dolist (domain '(ucs daikanwa cns))
+    (dolist (domain char-db-feature-domains)
       (map-char-attribute
        (lambda (char radical)
 	 (when (and radical
-- 
1.7.10.4