From: tomo <tomo>
Date: Wed, 13 Aug 2008 03:07:13 +0000 (+0000)
Subject: (char-db-insert-ccs-feature): Rename `shinjigen-1', `shinjigen-2' and
X-Git-Tag: r21-4-21-chise-0_24-=shinjigen^20~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7bd395851f58b78b96549d13aa69bf2a8ef40b9d;p=chise%2Fxemacs-chise.git

(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'.
---

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