From: tomo <tomo>
Date: Tue, 2 Sep 2008 01:14:50 +0000 (+0000)
Subject: (char-db-insert-ccs-feature): Add setting for `=shinjigen'.
X-Git-Tag: r21-4-21-chise-0_24-shinjigen-inheritance^20~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=79174ba00121f18470b4d244942f5c58b36d80ee;p=chise%2Fxemacs-chise.git

(char-db-insert-ccs-feature): Add setting for `=shinjigen'.
(char-db-insert-relation-feature): Add setting for `shinjigen'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index a2c5529..56da7a9 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -469,7 +469,8 @@
 (defun char-db-insert-ccs-feature (name value line-breaking)
   (insert
    (format
-    (cond ((memq name '(=shinjigen@1ed
+    (cond ((memq name '(=shinjigen
+			=shinjigen@1ed
 			=shinjigen@rev =shinjigen/+p@rev))
 	   "(%-18s .  %04d)\t; %c")
 	  ((eq name '=shinjigen@1ed/24pr)
@@ -537,7 +538,9 @@
 	(setq required-features nil)
 	(dolist (source sources)
 	  (cond
-	   ((memq source '(JP JP/Jouyou shinjigen@1ed shinjigen@rev))
+	   ((memq source '(JP
+			   JP/Jouyou
+			   shinjigen shinjigen@1ed shinjigen@rev))
 	    (setq required-features
 		  (union required-features
 			 '(=jis-x0208
@@ -546,7 +549,8 @@
 			   =jis-x0213-2-2000
 			   =jis-x0212
 			   =jis-x0208@1983
-			   =jis-x0208@1978))))
+			   =jis-x0208@1978
+			   =shinjigen))))
 	   ((eq source 'CN)
 	    (setq required-features
 		  (union required-features