# 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 704 "lib/Term/ReadLine/Zoid/ViCommand.pm (autosplit into blib/lib/auto/Term/ReadLine/Zoid/ViCommand/vi_Y.al)" sub vi_Y { # like vi_D but only copies, doesn't delete my ($self, $key, $cnt) = @_; my $pos = [ @{$$self{pos}} ]; # force copy if ($key eq 'Y') { $self->end_of_line } else { return unless $self->_do_motion('y', $cnt) } if ($$self{vi_command} =~ /yy$/) { $$self{killbuf} = $$self{lines}[ $$self{pos}[1] ]."\n"; } else { $$self{killbuf} = $self->substring(undef, $pos, $$self{pos}) } $$self{pos} = $pos; # reset pos } # end of Term::ReadLine::Zoid::ViCommand::vi_Y 1;