(insert-char-attributes): Don't display `<-identical' when running

with non-readable mode.

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 457d5f4..a15b587 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -896,7 +896,8 @@
                                 line-breaking))
                 )
                ((and (not readable)
-                     (string-match "^->simplified" (symbol-name name)))
+                     (or (eq name '<-identical)
+                         (string-match "^->simplified" (symbol-name name))))
                 )
                ((or (eq name 'ideographic-structure)
                     (eq name 'ideographic-)