From 624ab047ae8130ea681d657949436ab118399407 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 12 Jul 2001 17:23:56 +0000 Subject: [PATCH] (insert-char-attributes): Fix format for `->uppercase', `->lowercase' and `->titlecase'; don't insert alias of coded-charset. --- lisp/utf-2000/char-db-util.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 4266da8..19c5078 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -458,7 +458,8 @@ ((integerp code) (format "#x%04X" code)) (t - (format "%s%S" line-breaking code)))) + (format "%s %S" + line-breaking code)))) value " ") line-breaking)) (setq attributes (delq '->uppercase attributes)) @@ -472,7 +473,8 @@ ((integerp code) (format "#x%04X" code)) (t - (format "%s%S" line-breaking code)))) + (format "%s %S" + line-breaking code)))) value " ") line-breaking)) (setq attributes (delq '->lowercase attributes)) @@ -486,7 +488,8 @@ ((integerp code) (format "#x%04X" code)) (t - (format "%s%S" line-breaking code)))) + (format "%s %S" + line-breaking code)))) value " ") line-breaking)) (setq attributes (delq '->titlecase attributes)) @@ -600,7 +603,8 @@ (setq attributes (cdr attributes))) (while ccs-attributes (setq name (car ccs-attributes)) - (if (setq value (get-char-attribute char name)) + (if (and (eq name (charset-name name)) + (setq value (get-char-attribute char name))) (insert (format (cond ((memq name '(ideograph-daikanwa ideograph-gt)) -- 1.7.10.4