From: tomo <tomo>
Date: Mon, 2 Feb 2004 17:46:44 +0000 (+0000)
Subject: (mapping-table-read-file): Use `char-feature' instead of
X-Git-Tag: r21-4-14-chise-0_21-23^2~101
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=11806d8e6bd431e51b7153a1de7e9ef5b90e1848;p=chise%2Fxemacs-chise.git

(mapping-table-read-file): Use `char-feature' instead of
`get-char-attribute'.
---

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index a764315..a72c161 100644
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -126,7 +126,7 @@
 	    (put-char-attribute chr ccs code))
 	  (when (and ucs-code
 		     (not (eq (or (encode-char chr ucs-ccs 'defined-only)
-				  (get-char-attribute chr '=>ucs))
+				  (char-feature chr '=>ucs))
 			      ucs-code)))
 	    (put-char-attribute chr ucs-ccs ucs-code))
 	  (when (and ucs
@@ -136,7 +136,7 @@
                                                             =ucs-jis-2000
 							    ;; ucs-big5
 							    )))
-				       (get-char-attribute chr '=>ucs)))
+				       (char-feature chr '=>ucs)))
 			      ucs)))
 	    (if (or ucs-code (null ucs-ccs))
 		(put-char-attribute chr '=>ucs ucs)