ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
rxvt-unicode
/
src
/
perl
/
selection
Revision:
1.1
Committed:
Mon Jan 2 21:33:25 2006 UTC
(18 years, 5 months ago) by
elmex
Branch:
MAIN
Log Message:
added the selection:rot13 feature
File Contents
#
Content
1
sub on_keyboard_command {
2
my ($term, $cmd) = @_;
3
$cmd eq "selection:rot13"
4
and $term->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $term->selection);
5
}