From 7bd395851f58b78b96549d13aa69bf2a8ef40b9d Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 13 Aug 2008 03:07:13 +0000 Subject: [PATCH] (char-db-insert-ccs-feature): Rename `shinjigen-1', `shinjigen-2' and `shinjigen-2-p' to `=shinjigen@1ed', `=shinjigen@rev' and `=shinjigen/+p@rev'; add setting for `=shinjigen@1ed/24pr'. (char-db-insert-relation-feature): Rename `shinjigen-1' to `=shinjigen@1ed'; add setting for `shinjigen@1ed'. --- lisp/utf-2000/char-db-util.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 7b634a4..a2c5529 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -469,8 +469,11 @@ (defun char-db-insert-ccs-feature (name value line-breaking) (insert (format - (cond ((memq name '(shinjigen-1 shinjigen-2 shinjigen-2-p)) + (cond ((memq name '(=shinjigen@1ed + =shinjigen@rev =shinjigen/+p@rev)) "(%-18s . %04d)\t; %c") + ((eq name '=shinjigen@1ed/24pr) + "(%-18s . %04d)\t; %c") ((or (memq name '(=daikanwa =daikanwa@rev1 =daikanwa@rev2 =gt =gt-k =cbeta =zinbun-oracle)) @@ -534,7 +537,7 @@ (setq required-features nil) (dolist (source sources) (cond - ((memq source '(JP JP/Jouyou shinjigen-1)) + ((memq source '(JP JP/Jouyou shinjigen@1ed shinjigen@rev)) (setq required-features (union required-features '(=jis-x0208 -- 1.7.10.4