From f17aed1c3fac17334782b221a5f29051a1872999 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 5 Feb 2004 14:08:44 +0000 Subject: [PATCH] (insert-char-attributes): Ignore `<-unified'. --- lisp/utf-2000/char-db-util.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) 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 -- 1.7.10.4