From 083cc5a545249d075e69421102c94299f2053675 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 20 Nov 1999 18:27:11 +0000 Subject: [PATCH] (insert-char-data): Generate comment for `cns-radical'. --- lisp/utf-2000/char-db-util.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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)) -- 1.7.10.4