From f9cf8ab120361d21ffa5d2319f02cc26d55b1121 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 26 Jan 2000 09:37:41 +0000 Subject: [PATCH] (insert-char-data): Modify for code-point format change. --- lisp/utf-2000/char-db-util.el | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) 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) -- 1.7.10.4