From a6f76a7bd4c2d5a22d380b48096b277861c0d457 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 5 Feb 2004 16:18:06 +0000 Subject: [PATCH] (insert-char-attributes): Use `<-subsumptive' instead of `<-unified' and `->subsumptive' instead of `->unified'. --- lisp/utf-2000/char-db-util.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 261bc7c..a1adfef 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -858,7 +858,7 @@ ) (unless readable (dolist (ignored '(composition - ->denotational <-unified ->ucs-unified)) + ->denotational <-subsumptive ->ucs-unified)) (setq attributes (delq ignored attributes)))) (setq rest ccs-attributes) (while (and rest @@ -894,11 +894,11 @@ (setq cell (car value)) (if (integerp cell) (setq cell (decode-char '=ucs cell))) - (cond ((eq name '->unified) + (cond ((eq name '->subsumptive) (if separator (insert lbs)) (let ((char-db-ignored-attributes - (cons '<-unified + (cons '<-subsumptive char-db-ignored-attributes))) (insert-char-attributes cell readable)) (setq separator lbs)) -- 1.7.10.4