From 2841fa9ec02c3e17f0d30836d515a8604154eb16 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 4 Jun 2001 04:37:50 +0000 Subject: [PATCH] (char-db-insert-alist): Specify `none' as the third argument of `insert-char-attributes' if non-CCS attributes is not specified in a value of `char' attribute. (insert-char-attributes): Use nil as `attributes' if non-nil-list is specified for the argument. --- lisp/utf-2000/char-db-util.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index a9a7717..3cec543 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -141,7 +141,7 @@ (setq value (cdr value))) (insert-char-attributes ret readable - al cal)) + (or al 'none) cal)) (insert (prin1-to-string value))) (insert ")") (insert line-breaking)) @@ -191,7 +191,8 @@ column) (setq attributes (if attributes - (copy-sequence attributes) + (if (consp attributes) + (copy-sequence attributes)) (sort (char-attribute-list) #'char-attribute-name<))) (setq ccs-attributes (if ccs-attributes -- 1.7.10.4