From 98bf305953cdda5f3f524e1af815ec4e2709e86a Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 9 Feb 2004 11:29:18 +0000 Subject: [PATCH] (insert-char-attributes): Display `->simplified(@...)' when running with readable mode. --- lisp/utf-2000/char-db-util.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index a1adfef..fe5ab7b 100644 --- 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))) -- 1.7.10.4