… | |
… | |
220 | |
220 | |
221 | $self->enable (key_press => \&matchlist_key_press); |
221 | $self->enable (key_press => \&matchlist_key_press); |
222 | } |
222 | } |
223 | |
223 | |
224 | sub most_recent { |
224 | sub most_recent { |
225 | my ($self) = shift; |
225 | my ($self) = @_; |
226 | my $row = $self->nrow - 1; |
226 | my $row = $self->nrow - 1; |
227 | my @exec; |
|
|
228 | |
227 | |
229 | while ($row >= $self->top_row) { |
228 | while ($row >= $self->top_row) { |
230 | my $line = $self->line ($row); |
229 | my $line = $self->line ($row); |
231 | @exec = $self->command_for ($row); |
230 | my @exec = $self->command_for ($row); |
232 | last if @exec; |
231 | if (@exec) { |
|
|
232 | return $self->exec_async (@exec); |
|
|
233 | } |
233 | |
234 | |
234 | $row = $line->beg - 1; |
235 | $row = $line->beg - 1; |
235 | } |
|
|
236 | |
|
|
237 | if (@exec) { |
|
|
238 | return $self->exec_async (@exec); |
|
|
239 | } |
236 | } |
240 | |
237 | |
241 | () |
238 | () |
242 | } |
239 | } |
243 | |
240 | |