From 6c4950fa1bad75eadfce5e523e4f94c7b62c007a Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 8 Feb 2000 13:18:03 +0000
Subject: [PATCH] (insert-char-data): Don't output mojikyo-pj-*.

---
 lisp/utf-2000/char-db-util.el |   56 +++++++++++++++++++++--------------------
 1 file changed, 29 insertions(+), 27 deletions(-)

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)
-- 
1.7.10.4