From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 22 Jun 2016 14:07:55 +0000 (+0900)
Subject: Don't separate abstract glyph-forms of 1-47-64 of JIS X 0213:2000 and
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=53def6570e7a02a371463350e0e8c61df10cda2a;p=chise%2Fxemacs-chise.git-

Don't separate abstract glyph-forms of 1-47-64 of JIS X 0213:2000 and
:2004; this difference is regarded as glyph-image level.
---

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index 5d6eda2..fd2c63f 100644
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -232,13 +232,14 @@
 	    (put-char-attribute char '=ucs@jis/2004 ucs)))
 	)
        (rep-char
-	(put-char-attribute rep-char '==jis-x0213-1@2000 code)
-	(remove-char-attribute rep-char '==jis-x0213-1)
-	(remove-char-attribute rep-char '==jis-x0213-1@2004)
-	(setq ucs (or (encode-char rep-char '==ucs@jis/2000)
-		      ucs))
-	(remove-char-attribute rep-char '==ucs@jis)
-	(remove-char-attribute rep-char '==ucs@jis/2004)
+	(unless (and (= ku 47)(= ten 64))
+	  (put-char-attribute rep-char '==jis-x0213-1@2000 code)
+	  (remove-char-attribute rep-char '==jis-x0213-1)
+	  (remove-char-attribute rep-char '==jis-x0213-1@2004)
+	  (setq ucs (or (encode-char rep-char '==ucs@jis/2000)
+			ucs))
+	  (remove-char-attribute rep-char '==ucs@jis)
+	  (remove-char-attribute rep-char '==ucs@jis/2004))
 	(when (setq rep-char (decode-char '==jis-x0213-1@2004 code))
 	  (unless (eq (encode-char rep-char '==ucs@jis/2004) ucs)
 	    (put-char-attribute rep-char '==ucs@jis/2004 ucs)))