From: tomo <tomo>
Date: Thu, 12 Jul 2001 17:23:56 +0000 (+0000)
Subject: (insert-char-attributes): Fix format for `->uppercase', `->lowercase'
X-Git-Tag: r21-2-38-utf-2000-0_17-1~345
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=624ab047ae8130ea681d657949436ab118399407;p=chise%2Fxemacs-chise.git.1

(insert-char-attributes): Fix format for `->uppercase', `->lowercase'
and `->titlecase'; don't insert alias of coded-charset.
---

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))