X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=4d7040cf2374f9c97b58b76dd9484be131afbd9d;hb=1f2757c4c57b6b4492923ed4edd7f0f912a31157;hp=46e42ad1245806af65ea1b33f694a59c63dfca36;hpb=cdb2c0e3a1d778485f71d406a561b38ed5238dbc;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;