From: tomo <tomo>
Date: Fri, 19 Nov 1999 16:26:44 +0000 (+0000)
Subject: (write-ideograph-radical-char-data): Replace ` ' in `name' by `-'.
X-Git-Tag: r21-2-19-utf-2000-0_13-0~147
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2b2669155e23384dfdb5691e302fae746a1a7fd3;p=chise%2Fxemacs-chise.git.1

(write-ideograph-radical-char-data): Replace ` ' in `name' by `-'.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 2b8d259..4907d9a 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -182,6 +182,10 @@
       (let ((name (get-char-attribute (int-char (+ #x2EFF radical)) 'name)))
 	(if (string-match "KANGXI RADICAL " name)
 	    (setq name (capitalize (substring name (match-end 0)))))
+	(setq name (mapconcat (lambda (char)
+				(if (eq char ? )
+				    "-"
+				  (char-to-string char))) name ""))
 	(setq file
 	      (expand-file-name
 	       (format "Ideograph-R%03d-%s.el" radical name)