From: tomo <tomo>
Date: Sat, 6 Nov 2004 16:39:29 +0000 (+0000)
Subject: (insert-char-attributes): Print `ideographic-radical@DOMAIN',
X-Git-Tag: r21-4-15-u2km-0_21-32-a~2^2~76
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1b12d8beaea055d9469a11e04ee763828e7a000d;p=chise%2Fxemacs-chise.git-

(insert-char-attributes): Print `ideographic-radical@DOMAIN',
`ideographic-strokes@DOMAIN' and `total-strokes@DOMAIN' as
`ideographic-radical', `ideographic-strokes' and `total-strokes' even
if DOMAIN is not found in `char-db-feature-domains'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 45d4fa1..f427369 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -620,7 +620,20 @@
       (setq attributes (delq 'ideographic-radical attributes))
       )
     (let (key)
-      (dolist (domain char-db-feature-domains)
+      (dolist (domain
+	       ;; char-db-feature-domains
+	       (let* ((dest char-db-feature-domains)
+		      (dlast (last dest))
+		      domain)
+		 (dolist (feature (char-attribute-list))
+		   (setq feature (symbol-name feature))
+		   (when (string-match
+			  "\\(radical\\|strokes\\)@\\([^@*]+\\)\\(\\*\\|$\\)"
+			  feature)
+		     (setq domain (intern (match-string 2 feature)))
+		     (unless (memq domain dest)
+		       (setcdr dlast (setq dlast (list domain))))))
+		 dest))
 	(setq key (intern (format "%s@%s" 'ideographic-radical domain)))
 	(when (and (memq key attributes)
 		   (setq value (get-char-attribute char key)))