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