From: tomo <tomo>
Date: Thu, 15 May 2003 17:39:23 +0000 (+0000)
Subject: (insert-char-attributes): Add settings for
X-Git-Tag: r21-2-44-utf-2000-m0_18-mh-r009~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=574ae0c39c24b55d3d2b72bc67855c0393ee2dfa;p=chise%2Fxemacs-chise.git.1

(insert-char-attributes): Add settings for
`ideographic-{radicals|strokes}@{ucs|daikanwa|cns}' and
`ideographic-radicals@{ucs|daikanwa|cns}*sources'.
---

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)