From b3a6f85e6346e1ed356a0253cb33c0aab31abbc2 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 14 Mar 2004 12:07:00 +0000
Subject: [PATCH] (insert-char-attributes): Don't display `<-same' 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 20bd5c4..a989d1c 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -837,7 +837,8 @@
     (unless readable
       (dolist (ignored '(composition
 			 ->denotational <-subsumptive ->ucs-unified
-			 ->ideographic-component-forms))
+			 ->ideographic-component-forms
+			 <-same))
 	(setq attributes (delq ignored attributes))))
     ;; (setq rest ccs-attributes)
     ;; (while (and rest
-- 
1.7.10.4