From e4af773643fca2794a381bf4b44075bcd193a437 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 17 Aug 2004 19:14:57 +0000 Subject: [PATCH] change stupid alias fro 'fo*' change page handling a bit in console.pl --- Changes | 2 ++ cmd/Aliases | 2 +- perl/console.pl | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) 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; -- 2.43.0