From: tomo Date: Tue, 29 Jun 2004 15:19:41 +0000 (+0000) Subject: (insert-char-attributes): Don't display `->ancient' when running with X-Git-Tag: r21-4-15-chise-0_21-30-si-ancient^2~50 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f26cab021cabed12ae9933644e3f35f4adbe8069;p=chise%2Fxemacs-chise.git- (insert-char-attributes): Don't display `->ancient' when running with non-readable mode and it does not have `->ancient*sources'. --- diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index d0e521a..b87dea3 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -953,6 +953,7 @@ (string-match "^->vulgar" (symbol-name name)) (string-match "^->wrong" (symbol-name name)) (string-match "^->original" (symbol-name name)) + (string-match "^->ancient" (symbol-name name)) )) ) ((or (eq name 'ideographic-structure)