From: tomo <tomo>
Date: Sat, 20 Nov 1999 18:27:11 +0000 (+0000)
Subject: (insert-char-data): Generate comment for `cns-radical'.
X-Git-Tag: r21-2-19-utf-2000-0_13-0~131
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=083cc5a545249d075e69421102c94299f2053675;p=chise%2Fxemacs-chise.git

(insert-char-data): Generate comment for `cns-radical'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 67e947c..b5539d3 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -248,6 +248,14 @@
 			  (aref ideographic-radicals cell)))
 	  (setq data (del-alist 'ideographic-radical data))
 	  )
+	(when (setq cell (assq 'cns-radical data))
+	  (setq cell (cdr cell))
+	  (insert (format "(cns-radical\t . %S)\t; %c
+    "
+			  cell
+			  (aref ideographic-radicals cell)))
+	  (setq data (del-alist 'cns-radical data))
+	  )
 	(cond
 	 ((setq cell (assq 'ideographic-strokes data))
 	  (setq cell (cdr cell))