From 08000b7a842f62ae6bd34249959a09ce5f1b66b1 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 25 Feb 2004 07:44:03 +0000 Subject: [PATCH] (insert-char-attributes): Don't display `<-identical' when running with non-readable mode. --- lisp/utf-2000/char-db-util.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 457d5f4..a15b587 100644 --- 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-) -- 1.7.10.4