view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

- If mark was active, redraw could be performed after Enter.

- Untested Win32 support for cut&paste.

- Alias $var_DeleteSelection for $rl_delete_selection (thus accessible
  via .inputrc).

1.0206 2006-03-03

- Shift-Ins, Control-Ins, Shift-Del operate on clipboard (if available)
  (currently native on OS/2 only, otherwise uses commands
  $ENV{RL_PASTE_CMD}, $ENV{RL_CLCOPY_CMD}, or file
  $ENV{HOME}/.rl_cutandpaste).

-  In absense of mark, CopyRegionAsKillClipboard operates on the whole line.

-  Completely ignore unknown variables in .inputrc.

-  Moving cursor should remove the highlight of initial string too.

lib/Term/ReadLine/Perl5/readline.pm  view on Meta::CPAN

    # List possible completions
    &complete_internal('?');

    # Enter input mode with cursor where we left off.
    &F_ForwardChar(1);
    &vi_input_mode;
}

sub F_CopyRegionAsKillClipboard {
    return clipboard_set($line) unless $line_rl_mark == $rl_HistoryIndex;
    &F_CopyRegionAsKill;
    clipboard_set($KillBuffer);
}

sub F_KillRegionClipboard {
    &F_KillRegion;
    clipboard_set($KillBuffer);
}

sub F_YankClipboard
{
    remove_selection();
    my $in;
    if ($^O eq 'os2') {
      eval {
        require OS2::Process;
        $in = OS2::Process::ClipbrdText();

lib/Term/ReadLine/Perl5/readline.pm  view on Meta::CPAN

    $line;
}

sub vi_input_mode()
{
    $InsertMode = 1;
    $var_EditingMode = $var_EditingMode{'vi'};
    $Vi_mode = 1;
}

sub clipboard_set($) {
    my $in = shift;
    if ($^O eq 'os2') {
      eval {
        require OS2::Process;
        OS2::Process::ClipbrdText_set($in); # Do not disable \r\n-conversion
        1
      } and return;
    } elsif ($^O eq 'MSWin32') {
      eval {
        require Win32::Clipboard;