k => \&kill_line,
o => \&show_original,
m => \&merge_lines,
+ n => \&next_line,
+ p => \&prev_line,
s => \&substitute,
t => \&commit_edit,
x => \&dump_record,
my @a = @record[0 .. $recptr - 1];
my @b = @record[$recptr + 1 .. $#record];
@record = (@a, @b);
- # move recorde pointer to previous line
- $recptr--;
- print_linecontext();
+ # move record pointer to previous line
+ prev_line();
return 0;
}
return 1;
}
+sub next_line {
+ $recptr++;
+ print_linecontext();
+ return 0;
+}
+
+sub prev_line {
+ $recptr--;
+ print_linecontext();
+ return 0;
+}
+
sub commit_edit { return 1 }
sub show_original {