From: tomo <tomo>
Date: Fri, 12 Dec 2003 04:31:34 +0000 (+0000)
Subject: (mapping-table-read-file): If ucs-ccs is `=ucs-jis-2000', add it.
X-Git-Tag: r21-4-14-chise-0_21-ucs-jis-2000^2~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f1a0f6352b8fd7e6fb45896d2cabf809ef5705fe;p=chise%2Fxemacs-chise.git-

(mapping-table-read-file): If ucs-ccs is `=ucs-jis-2000', add it.
---

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index ddde049..e1926f8 100644
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -133,6 +133,7 @@
 		     (not (eq (or (encode-char chr '=ucs 'defined-only)
 				  (and (not (memq ucs-ccs '(ucs-jis
 							    =ucs-jis-1990
+                                                            =ucs-jis-2000
                                                             ;; ucs-big5
 							    )))
 				       (get-char-attribute chr '=>ucs)))