Index: kit/README
diff -u kit/README:1.31 kit/README:1.32
--- kit/README:1.31	Mon Dec 28 17:22:21 1998
+++ kit/README	Mon Apr 12 11:17:48 1999
@@ -106,6 +106,10 @@
 Latest packages are available from "ftp://ftp.Mew.org/pub/MagicPoint/"
 as well as this home page.
 
+Pre-release snapshots are generated weekly, to
+"ftp://sh.wide.ad.jp/WIDE/free-ware/mgp-snap/".  These snapshot MAY NOT
+WORK AT ALL, and these are just for people who would like to hack.
+
 Please send comments to the developer mailing-list "mgp@Mew.org".
 
 There are two mailing list for magicpoint users:
Index: kit/ctlwords.pl
diff -u kit/ctlwords.pl:1.2 kit/ctlwords.pl:removed
--- kit/ctlwords.pl:1.2	Sat Sep  5 06:05:08 1998
+++ kit/ctlwords.pl	Mon Apr 19 05:10:05 1999
@@ -1,12 +0,0 @@
-#! /usr/bin/perl
-$counter = 0;	# 0 origin
-print "/* generated by ctlwords.awk. do not edit by hand. */\n";
-
-while (<>) {
-	next if (!/^\/\*CTL\*\//);
-	next if ($_ !~ /(CTL_[A-Z0-9]+)/);
-
-	$word = $1;
-	print "#define $word\t$counter\n";
-	$counter++;
-}
Index: kit/keywords.pl
diff -u kit/keywords.pl:1.1 kit/keywords.pl:removed
--- kit/keywords.pl:1.1	Tue Nov 11 15:07:40 1997
+++ kit/keywords.pl	Mon Apr 19 05:10:06 1999
@@ -1,14 +0,0 @@
-@keywords = ();
-
-die if (@ARGV != 1);
-open(IN, "< $ARGV[0]") || die;
-while (<IN>) {
-	next if (! /^\/\*CTL\*\//);
-	next if (! /CTL_([A-Z0-9]+),/);
-	$t = $1;
-	$t =~ tr/A-Z/a-z/;
-	push(@keywords, $t);
-}
-close(IN);
-
-print join(' ', @keywords) . "\n";
Index: kit/tfont.c
diff -u kit/tfont.c:1.27 kit/tfont.c:1.28
--- kit/tfont.c:1.27	Mon Apr 12 03:14:25 1999
+++ kit/tfont.c	Mon Apr 12 14:50:36 1999
@@ -26,7 +26,7 @@
  * SUCH DAMAGE.
  */
 /*
- * $Id: tfont.c,v 1.27 1999/04/11 18:14:25 nishida Exp $
+ * $Id: tfont.c,v 1.28 1999/04/12 05:50:36 nishida Exp $
  */
 
 #include "mgp.h"
@@ -376,6 +376,9 @@
 {
 	u_int	i;
 	struct tfont *tfc, *htfc;
+
+	if (!fontname)  
+		return NULL;    
 
 	for (i = 0; i < tffontcnt; i ++) {
 		if (!strcmp(fontname, tfloadedfont[i]))

.