From 2b2669155e23384dfdb5691e302fae746a1a7fd3 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 19 Nov 1999 16:26:44 +0000 Subject: [PATCH] (write-ideograph-radical-char-data): Replace ` ' in `name' by `-'. --- lisp/utf-2000/ideograph-util.el | 4 ++++ 1 file changed, 4 insertions(+) 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) -- 1.7.10.4