From: tomo <tomo>
Date: Wed, 10 Aug 2005 18:06:33 +0000 (+0000)
Subject: (insert-char-attributes): Fix condition about `<-subsumptive'; don't
X-Git-Tag: r21-4-17-chise-0_22-4^20~291
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c1ab5c1a867199c6f35fd018af9db0f31d78b69c;p=chise%2Fxemacs-chise.git

(insert-char-attributes): Fix condition about `<-subsumptive'; don't
display `<-canonical' when running with non-readable mode.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 011af20..bbccc1e 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -566,7 +566,7 @@
 		  #'char-attribute-name<)))
     (insert "(")
     (when (memq '<-subsumptive attributes)
-      (unless readable
+      (when readable
 	(when (setq value (get-char-attribute char '<-subsumptive))
 	  (char-db-insert-relation-feature char '<-subsumptive value
 					   line-breaking
@@ -1011,6 +1011,7 @@
 			     (intern (format "%s*sources" name))))
 		      (not (string-match "\\*sources$" (symbol-name name)))
 		      (or (eq name '<-identical)
+			  (eq name '<-canonical)
 			  (eq name '->superscript)
 			  (eq name '->subscript)
 			  (eq name '->circled)