From: tomo <tomo>
Date: Fri, 4 Mar 2011 06:43:38 +0000 (+0000)
Subject: For each JIS X 0208:1997 abstract character which the corresponding
X-Git-Tag: r21-4-22-chise-0_25-6^20~304
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7cd1b772de3d9702673a5e6bdcf7169b6af72717;p=chise%2Fxemacs-chise.git

For each JIS X 0208:1997 abstract character which the corresponding
JIS X 0213:2000 representative glyph image is changed in the 2004
edition, don't add `=>jis-x0208' feature if `=>>jis-x0208' feature is
defined.
---

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index ecae759..7c32df0 100644
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -201,8 +201,9 @@
 	  (put-char-attribute char '=ucs@jis/2004 ucs)))
       (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)))
+	  (unless (eq (encode-char char '=>>jis-x0208) code)
+	    (put-char-attribute char '=>jis-x0208 code)
+	    (remove-char-attribute char '=>jis-x0208@1997))))
       )))
 
 (map-char-attribute