From: tomo Date: Thu, 5 Feb 2004 14:08:44 +0000 (+0000) Subject: (insert-char-attributes): Ignore `<-unified'. X-Git-Tag: r21-4-14-chise-0_21-23^2~61 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f17aed1c3fac17334782b221a5f29051a1872999;p=chise%2Fxemacs-chise.git- (insert-char-attributes): Ignore `<-unified'. --- diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 59890a8..261bc7c 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -857,15 +857,9 @@ (setq attributes (delq 'hanyu-dazidian-char attributes)) ) (unless readable - (when (memq '->ucs-unified attributes) - (setq attributes (delq '->ucs-unified attributes)) - ) - (when (memq '->denotational attributes) - (setq attributes (delq '->denotational attributes)) - ) - (when (memq 'composition attributes) - (setq attributes (delq 'composition attributes)) - )) + (dolist (ignored '(composition + ->denotational <-unified ->ucs-unified)) + (setq attributes (delq ignored attributes)))) (setq rest ccs-attributes) (while (and rest (progn