From: minima <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;