From: tomo <tomo>
Date: Tue, 11 Feb 2003 16:36:10 +0000 (+0000)
Subject: (mapping-table-read-file): Use `=jis-x0213-{1|2}-2000' instead of
X-Git-Tag: r21-4-10-utf-2000-0_20-jis-x0213-2000~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=af1ede280d0fb8f5a9a37ffef9b8c1b09b632e87;p=chise%2Fxemacs-chise.git-

(mapping-table-read-file): Use `=jis-x0213-{1|2}-2000' instead of
`japanese-jisx0213-{1|2}'.
---

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index 2ecaff2..6782fdc 100644
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -49,14 +49,14 @@
 	       (goto-char (match-end 0))
 	       )
 	      ((looking-at "^JX1-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)")
-	       (setq ccs 'japanese-jisx0213-1
+	       (setq ccs '=jis-x0213-1-2000
 		     code (string-to-int (match-string 1) 16)
 		     ucs-pat "\tJU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)"
 		     ucs-ccs '=ucs-jis-2000)
 	       (goto-char (match-end 0))
 	       )
 	      ((looking-at "^JX2-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)")
-	       (setq ccs 'japanese-jisx0213-2
+	       (setq ccs '=jis-x0213-2-2000
 		     code (string-to-int (match-string 1) 16)
 		     ucs-pat "\tJU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)"
 		     ucs-ccs 'ucs-jis)