--- rxvt-unicode/src/perl/selection-popup 2011/01/04 21:34:18 1.22 +++ rxvt-unicode/src/perl/selection-popup 2011/01/04 21:35:35 1.23 @@ -68,7 +68,7 @@ /./ and $add_button->((sprintf "to unicode hex index (%x)", ord) => sub { $_ = sprintf "%x", ord }); - /^(\S+):(\d+):?$/ + /(\S+):(\d+):?/ and $add_button->("vi-commands to load '$1'" => sub { s/^(\S+):(\d+):?$/\x1b:e $1\x0d:$2\x0d/ }); /%[0-9a-fA-F]{2}/ && !/%[^0-9a-fA-F]/ && !/%.[^0-9a-fA-F]/