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