From 53def6570e7a02a371463350e0e8c61df10cda2a Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Wed, 22 Jun 2016 23:07:55 +0900 Subject: [PATCH] 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. --- lisp/utf-2000/maps-conf.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) 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))) -- 1.7.10.4