From f8ae56b3326d330d95c0b97e9c881eb53bd18a19 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 13 Aug 2008 03:10:13 +0000 Subject: [PATCH] Add temporary setting to convert `shinjigen-1' and `shinjigen-2' to `shinjigen@1ed' and `shinjigen@rev' in *sources features. --- 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 2176f2e..ea88545 100644 --- a/lisp/utf-2000/maps-conf.el +++ b/lisp/utf-2000/maps-conf.el @@ -109,3 +109,20 @@ (put-char-attribute (decode-char ccs v) '=gt gt)) nil) ccs))) + +(let (ret) + (dolist (feature + (let (dest) + (dolist (feature (char-attribute-list)) + (when (string-match "\\*sources\\($\\|@[^\\*]+$\\)" + (symbol-name feature)) + (setq dest (cons feature dest)))) + dest)) + (map-char-attribute + (lambda (c v) + (when (setq ret (memq 'shinjigen-1 v)) + (setcar ret 'shinjigen@1ed)) + (when (setq ret (memq 'shinjigen-2 v)) + (setcar ret 'shinjigen@rev)) + nil) + feature))) -- 1.7.10.4