(insert-char-attributes): Display `->simplified(@...)' when running
authortomo <tomo>
Mon, 9 Feb 2004 11:29:18 +0000 (11:29 +0000)
committertomo <tomo>
Mon, 9 Feb 2004 11:29:18 +0000 (11:29 +0000)
with readable mode.

lisp/utf-2000/char-db-util.el

index a1adfef..fe5ab7b 100644 (file)
                ((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)))