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 (file)
--- 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)))