11 lines
449 B
Text
11 lines
449 B
Text
--- tkispell.orig Sat Oct 28 20:33:47 2006
|
|
+++ tkispell Sat Oct 28 20:34:14 2006
|
|
@@ -11,7 +11,7 @@ $VERSION=0.17;
|
|
my $fn = '*-helvetica-medium-r-*-*-12-*'; # Widget font
|
|
|
|
my $lang = $ENV{LANG};
|
|
-if ($lang =~ /^C$/ || ! defined ($lang)) {$lang = 'default'; }
|
|
+if (defined ($lang) && $lang =~ /^C$/ || ! defined ($lang)) {$lang = 'default'; }
|
|
my $hdict = $ENV{HOME}."/.ispell_$lang"; # Personal dictionary.
|
|
|
|
my $ispell_prog = `which ispell`;
|