From: tomo <tomo>
Date: Sat, 21 Jun 2003 09:01:20 +0000 (+0000)
Subject: (char-ideographic-radical): Refer `char-db-feature-domains'.
X-Git-Tag: r21-2-44-utf-2000-m0_18-big5-r106~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2ff627503ef472942d62846d9ee0ec2596d96d62;p=chise%2Fxemacs-chise.git

(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'.
---

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