From 1c4db7b1b9fb2d5e5c6768beb767a5cecfb303c3 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 16 Jun 2000 12:19:39 +0000 Subject: [PATCH] (insert-char-data): fixed. --- lisp/utf-2000/char-db-util.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4