From: tomo <tomo>
Date: Tue, 8 Feb 2000 13:18:03 +0000 (+0000)
Subject: (insert-char-data): Don't output mojikyo-pj-*.
X-Git-Tag: r21-2-27-utf-2000-0_15-0~177
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6c4950fa1bad75eadfce5e523e4f94c7b62c007a;p=chise%2Fxemacs-chise.git.1

(insert-char-data): Don't output mojikyo-pj-*.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index acbc639..7ce474b 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -394,33 +394,35 @@
 	(while data
 	  (setq cell (car data))
 	  (cond ((setq ret (find-charset (car cell)))
-		 (insert
-		  (format
-		   (if has-long-ccs-name
-		       (if (eq ret (find-charset 'ideograph-daikanwa))
-			   "(%-26s . %05d)\t; %c
-    "
-			 "(%-26s . #x%X)\t; %c
-    "
-			 )
-		     (if (eq ret (find-charset 'ideograph-daikanwa))
-			 "(%-18s . %05d)\t; %c
-    "
-		       "(%-18s . #x%X)\t; %c
-    "
-		       ))
-		   (charset-name ret)
-		   (if (= (charset-iso-graphic-plane ret) 1)
-		       (logior (cdr cell)
-			       (cond ((= (charset-dimension ret) 1)
-				      #x80)
-				     ((= (charset-dimension ret) 2)
-				      #x8080)
-				     ((= (charset-dimension ret) 3)
-				      #x808080)
-				     (t 0)))
-		     (cdr cell))
-		   (decode-builtin-char ret (cdr cell)))))
+		 (or (string-match "^mojikyo-pj-"
+				   (symbol-name (charset-name ret)))
+		     (insert
+		      (format
+		       (if has-long-ccs-name
+			   (if (eq ret (find-charset 'ideograph-daikanwa))
+			       "(%-26s . %05d)\t; %c
+    "
+			     "(%-26s . #x%X)\t; %c
+    "
+			     )
+			 (if (eq ret (find-charset 'ideograph-daikanwa))
+			     "(%-18s . %05d)\t; %c
+    "
+			   "(%-18s . #x%X)\t; %c
+    "
+			   ))
+		       (charset-name ret)
+		       (if (= (charset-iso-graphic-plane ret) 1)
+			   (logior (cdr cell)
+				   (cond ((= (charset-dimension ret) 1)
+					  #x80)
+					 ((= (charset-dimension ret) 2)
+					  #x8080)
+					 ((= (charset-dimension ret) 3)
+					  #x808080)
+					 (t 0)))
+			 (cdr cell))
+		       (decode-builtin-char ret (cdr cell))))))
 		((string-match "^->" (symbol-name (car cell)))
 		 (insert
 		  (format "(%-18s %s)