From: tomo <tomo>
Date: Fri, 16 Jun 2000 12:19:39 +0000 (+0000)
Subject: (insert-char-data): fixed.
X-Git-Tag: r21-2-34-utf-2000-0_16-1~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1c4db7b1b9fb2d5e5c6768beb767a5cecfb303c3;p=chise%2Fxemacs-chise.git

(insert-char-data): fixed.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 7176e59..0d72cef 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -119,7 +119,7 @@
       (setq attributes (sort (char-attribute-list) #'char-attribute-name<)))
   (or ccs-attributes
       (setq ccs-attributes (sort (charset-list) #'char-attribute-name<)))
-  (let (name value cell ret has-long-ccs-name rest
+  (let (name value has-long-ccs-name rest
 	radical strokes)
     (save-restriction
       (narrow-to-region (point)(point))
@@ -140,7 +140,7 @@
     "
 			(mapconcat (function prin1-to-string)
 				   value " ")))
-	(setq attributes (del-alist 'script data))
+	(setq attributes (delq 'script attributes))
 	)
       (when (setq value (get-char-attribute char '->ucs))
 	(insert (format "(->ucs\t\t. #x%04X)\t; %c