From: minima Date: Tue, 17 Aug 2004 19:14:57 +0000 (+0000) Subject: change stupid alias fro 'fo*' X-Git-Tag: R_1_51B~15 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4af773643fca2794a381bf4b44075bcd193a437;p=spider.git change stupid alias fro 'fo*' change page handling a bit in console.pl --- diff --git a/Changes b/Changes index 35999e5a..2dc36b08 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +17Aug04======================================================================= +1. change 'fo' alias in Aliases 31Jul04======================================================================= 1. add a load of .cvsignore lines to reduce the updating noise 30Jul04======================================================================= diff --git a/cmd/Aliases b/cmd/Aliases index 53e7651e..dd9774d8 100644 --- a/cmd/Aliases +++ b/cmd/Aliases @@ -59,7 +59,7 @@ package CmdAlias; '^expun?g?e?$', 'kill expunge', 'kill expunge', ], 'f' => [ - '^fo\w*$', 'apropos forward', 'apropos', + '^for?w?a?r?d?$', 'apropos forward', 'apropos', ], 'g' => [ ], diff --git a/perl/console.pl b/perl/console.pl index f4c4a85f..bc3ca0d6 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -334,7 +334,7 @@ sub rec_stdin } elsif ($r eq KEY_PPAGE || $r eq "\032") { if ($spos > 0) { my ($i, $l); - for ($i = 0; $i <= $pagel && $spos >= 0; ) { + for ($i = 0; $i <= $pagel-1 && $spos >= 0; ) { $l = measure($shistory[$spos]); $i += $l; $spos-- if $i <= $pagel;