From: tomo <tomo>
Date: Wed, 26 Jan 2000 09:37:41 +0000 (+0000)
Subject: (insert-char-data): Modify for code-point format change.
X-Git-Tag: r21-2-27-utf-2000-0_14-0~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f9cf8ab120361d21ffa5d2319f02cc26d55b1121;p=chise%2Fxemacs-chise.git.1

(insert-char-data): Modify for code-point format change.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 4329441..a7f4e37 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -397,19 +397,22 @@
 		 (insert
 		  (format
 		   (if has-long-ccs-name
-		       "(%-26s %s)
+		       "(%-26s . %X)
     "
-		     "(%-18s %s)
+		     "(%-18s . %X)
     "
 		     )
 		   (charset-name ret)
-		   (mapconcat
-		    (lambda (b)
-		      (format "#x%02X"
-			      (if (= (charset-iso-graphic-plane ret) 1)
-				  (logior b 128)
-				b)))
-		    (cdr cell) " "))))
+		   (if (= (charset-iso-graphic-plane ret) 1)
+		       (logior (cdr cell)
+			       (cond ((= (charset-dimension ret) 1)
+				      #x80)
+				     ((= (charset-dimension ret) 2)
+				      #x8080)
+				     ((= (charset-dimension ret) 3)
+				      #x808080)
+				     (t 0)))
+		     (cdr cell)))))
 		((string-match "^->" (symbol-name (car cell)))
 		 (insert
 		  (format "(%-18s %s)