From 12e878d8329f1b176afdafb380c0c580a094d59a Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 14 Nov 1999 06:32:21 +0000 Subject: [PATCH] (insert-char-data): Print GR value for GR-set. --- lisp/utf-2000/char-db-util.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index cb4e9e0..bfb0e90 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -286,10 +286,13 @@ " ) (charset-name ret) - (mapconcat (lambda (b) - (format "#x%02X" b) - ) - (cdr cell) " ")))) + (mapconcat + (lambda (b) + (format "#x%02X" + (if (= (charset-graphic ret) 1) + (logior b #x80) + b))) + (cdr cell) " ")))) ((string-match "^->" (symbol-name (car cell))) (insert (format "(%-18s %s) -- 1.7.10.4