# NOTE: Derived from lib/Term/ReadLine/Zoid/ViCommand.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Term::ReadLine::Zoid::ViCommand; #line 329 "lib/Term/ReadLine/Zoid/ViCommand.pm (autosplit into blib/lib/auto/Term/ReadLine/Zoid/ViCommand/vi_macro.al)" sub vi_macro { my ($self, undef, $cnt) = @_; my $n = $self->_get_chr; #print STDERR "macro arg was: $n\n"; return $self->bell unless $n =~ /^\w$/; return unless exists $$self{config}{aliases}{'_'.$n}; my $macro = $$self{config}{aliases}{"_$n"}; for (1..$cnt) { $self->switch_mode(); $self->press($macro); } } # end of Term::ReadLine::Zoid::ViCommand::vi_macro 1;