From: tomo <tomo>
Date: Thu, 4 Aug 2005 10:37:15 +0000 (+0000)
Subject: (insert-char-attributes): Don't display `->font' when running with
X-Git-Tag: r21-4-17-chise-0_22-4^20~320
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fc8ace6066ca0b3139855a16efc5f62245e23f84;p=chise%2Fxemacs-chise.git

(insert-char-attributes): Don't display `->font' 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 a5ac6e8..011af20 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -1014,6 +1014,7 @@
 			  (eq name '->superscript)
 			  (eq name '->subscript)
 			  (eq name '->circled)
+			  (string-match "^->font" (symbol-name name))
 			  (string-match "^->compat" (symbol-name name))
 			  (string-match "^->halfwidth" (symbol-name name))
 			  (and