From: tomo <tomo>
Date: Wed, 3 Mar 2010 11:33:45 +0000 (+0000)
Subject: Don't rename `=>jis-x0208@1997' to `=>jis-x0208' and add
X-Git-Tag: r21-4-22-chise-0_24-jis-x0213-rep-diffs^20~78
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a6f91bf5efb56931151866d02c6980a5d131fcb0;p=chise%2Fxemacs-chise.git

Don't rename `=>jis-x0208@1997' to `=>jis-x0208' and add
`=>jis-x0213-1' for J97-332A.
---

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index 1ab6144..81e4e05 100644
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -192,9 +192,10 @@
       (when (setq char (decode-char '=jis-x0213-1@2004 code))
 	(unless (eq (encode-char char '=ucs@jis/2004) ucs)
 	  (put-char-attribute char '=ucs@jis/2004 ucs)))
-      (when (setq char (decode-char '=>jis-x0208@1997 code 'defined-only))
-	(put-char-attribute char '=>jis-x0208 code)
-	(remove-char-attribute char '=>jis-x0208@1997))
+      (unless (eq code #x332A)
+	(when (setq char (decode-char '=>jis-x0208@1997 code 'defined-only))
+	  (put-char-attribute char '=>jis-x0208 code)
+	  (remove-char-attribute char '=>jis-x0208@1997)))
       )))
 
 (map-char-attribute