(insert-char-attributes): Display `->simplified(@...)' when running

with readable mode.

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index a1adfef..fe5ab7b 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -883,7 +883,11 @@
                ((eq name 'jisx0208-1978/4X)
                 (insert (format "(%-18s . #x%04X)%s"
                                 name value
-                                line-breaking)))
+                                line-breaking))
+                )
+               ((and (not readable)
+                     (string-match "^->simplified" (symbol-name name)))
+                )
                ((or (eq name 'ideographic-structure)
                     (eq name 'ideographic-)
                     (string-match "^\\(->\\|<-\\)" (symbol-name name)))