From: tomo <tomo>
Date: Sun, 14 Nov 1999 06:32:21 +0000 (+0000)
Subject: (insert-char-data): Print GR value for GR-set.
X-Git-Tag: r21-2-19-utf-2000-0_12-0~53
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=12e878d8329f1b176afdafb380c0c580a094d59a;p=chise%2Fxemacs-chise.git-

(insert-char-data): Print GR value for GR-set.
---

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)