From 42fff9b12a08e77159ab84a76a3061114c2a8962 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Tue, 3 Mar 2015 19:09:24 +0900 Subject: [PATCH] Add code to set `(=ucs@JP/hanazono . nil)' into each `=ucs@unicode' object differ from `=ucs@JP' object. --- lisp/utf-2000/maps-conf.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el index 1a23726..3737c99 100644 --- a/lisp/utf-2000/maps-conf.el +++ b/lisp/utf-2000/maps-conf.el @@ -275,3 +275,20 @@ '==hanyo-denshi/jd) ) +(let (j-chr) + (map-char-attribute + (lambda (c v) + (if (and (setq j-chr (decode-char '=ucs@JP v)) + (not (eq j-chr c)) + (null (encode-char c '=ucs))) + (put-char-attribute c '=ucs@JP/hanazono nil)) + nil) + '=ucs@unicode) + (map-char-attribute + (lambda (c v) + (if (and (setq j-chr (decode-char '==ucs@JP v)) + (not (eq j-chr c))) + (put-char-attribute c '==ucs@JP/hanazono nil)) + nil) + '==ucs@unicode) + ) -- 1.7.10.4