From 574ae0c39c24b55d3d2b72bc67855c0393ee2dfa Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 15 May 2003 17:39:23 +0000
Subject: [PATCH] (insert-char-attributes): Add settings for
 `ideographic-{radicals|strokes}@{ucs|daikanwa|cns}' and
 `ideographic-radicals@{ucs|daikanwa|cns}*sources'.

---
 lisp/utf-2000/char-db-util.el |   35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 93a8809..2fff287 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -630,6 +630,41 @@
       )
     (setq radical nil
 	  strokes nil)
+    (let (key)
+      (dolist (domain '(ucs daikanwa cns))
+	(setq key (intern (format "%s@%s" 'ideographic-radical domain)))
+	(when (and (memq key attributes)
+		   (setq value (get-char-attribute char key)))
+	  (setq radical value)
+	  (insert (format "(%s . %S)\t; %c%s"
+			  key
+			  radical
+			  (aref ideographic-radicals radical)
+			  line-breaking))
+	  (setq attributes (delq key attributes))
+	  )
+	(setq key (intern (format "%s@%s" 'ideographic-strokes domain)))
+	(when (and (memq key attributes)
+		   (setq value (get-char-attribute char key)))
+	  (setq strokes value)
+	  (insert (format "(%s . %S)%s"
+			  key
+			  strokes
+			  line-breaking))
+	  (setq attributes (delq key attributes))
+	  )
+	(setq key (intern (format "%s@%s*sources"
+				  'ideographic-radical domain)))
+	(when (and (memq key attributes)
+		   (setq value (get-char-attribute char key)))
+	  (insert (format "(%s%s" key line-breaking))
+	  (dolist (cell value)
+	    (insert (format " %s" cell)))
+	  (insert ")")
+	  (insert line-breaking)
+	  (setq attributes (delq key attributes))
+	  )
+	))
     (when (and (memq 'ideographic-radical attributes)
 	       (setq value (get-char-attribute char 'ideographic-radical)))
       (setq radical value)
-- 
1.7.10.4