(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 (file)
--- 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))