From: tomo <tomo>
Date: Thu, 5 Feb 2004 16:18:06 +0000 (+0000)
Subject: (insert-char-attributes): Use `<-subsumptive' instead of `<-unified'
X-Git-Tag: r21-4-14-chise-0_21-23^2~56
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a6f76a7bd4c2d5a22d380b48096b277861c0d457;p=chise%2Fxemacs-chise.git

(insert-char-attributes): Use `<-subsumptive' instead of `<-unified'
and `->subsumptive' instead of `->unified'.
---

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))