From af1ede280d0fb8f5a9a37ffef9b8c1b09b632e87 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 11 Feb 2003 16:36:10 +0000 Subject: [PATCH] (mapping-table-read-file): Use `=jis-x0213-{1|2}-2000' instead of `japanese-jisx0213-{1|2}'. --- lisp/utf-2000/read-maps.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4