X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=4d7040cf2374f9c97b58b76dd9484be131afbd9d;hb=4f444f8dd0c7a7bf53a8d40e4e0fbadf57d32ffb;hp=46e42ad1245806af65ea1b33f694a59c63dfca36;hpb=5dd49f32f869e946267b7983499b1df741442472;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 46e42ad1..4d7040cf 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -368,7 +368,7 @@ sub rec_stdin
 			} else {
 				beep();
 			}
-		} elsif ($r ge ' ' && $r le '~') {
+		} elsif (is_pctext($r)) {
 			# move the top screen back to the bottom if you type something
 			if ($spos < @shistory) {
 				$spos = @shistory;