From 985de7e1671d27e8a49db0ba4410d3d233e22e61 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 10 Dec 2003 16:09:58 +0000 Subject: [PATCH] (mapping-table-read-file): Use `=ucs@jis-2000' instead of `ucs-jis' for JX2-XXXX. --- lisp/utf-2000/read-maps.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el index cef08e3..ddde049 100644 --- a/lisp/utf-2000/read-maps.el +++ b/lisp/utf-2000/read-maps.el @@ -59,7 +59,7 @@ (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) + ucs-ccs '=ucs@jis-2000) (goto-char (match-end 0)) ) ((looking-at "^C1-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)") @@ -132,7 +132,9 @@ (when (and ucs (not (eq (or (encode-char chr '=ucs 'defined-only) (and (not (memq ucs-ccs '(ucs-jis - =ucs-jis-1990))) + =ucs-jis-1990 + ;; ucs-big5 + ))) (get-char-attribute chr '=>ucs))) ucs))) (if (or ucs-code (null ucs-ccs)) -- 1.7.10.4