From 383a8225321d3d9587a31595eabc9fbc701aa439 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 19 Feb 2015 14:07:08 +0900 Subject: [PATCH] - Add code to add `===hanyo-denshi/jc' to `===jis-x0213-1@2000'. - Add code to add `===hanyo-denshi/jd' to `===jis-x0213-2'. --- lisp/utf-2000/maps-conf.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el index 556ff20..1a23726 100644 --- a/lisp/utf-2000/maps-conf.el +++ b/lisp/utf-2000/maps-conf.el @@ -257,3 +257,21 @@ (put-char-attribute c '=>jis-x0213-1 v)) nil) '=>jis-x0208) + +(let (dg-chr) + (map-char-attribute + (lambda (c v) + (when (setq dg-chr (decode-char '===jis-x0213-1@2000 v)) + (unless (eq c dg-chr) + (put-char-attribute dg-chr '===hanyo-denshi/jc v))) + nil) + '==hanyo-denshi/jc) + (map-char-attribute + (lambda (c v) + (when (setq dg-chr (decode-char '===jis-x0213-2 v)) + (unless (eq c dg-chr) + (put-char-attribute dg-chr '===hanyo-denshi/jd v))) + nil) + '==hanyo-denshi/jd) + ) + -- 1.7.10.4