ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
rxvt-unicode
/
src
/
perl
/
selection
Revision:
1.4
Committed:
Mon Jan 2 21:36:20 2006 UTC
(18 years, 5 months ago) by
root
Branch:
MAIN
Changes since
1.3
:
+2 -0 lines
Log Message:
*** empty log message ***
File Contents
#
Content
1
#! perl
2
3
sub on_keyboard_command {
4
my ($term, $cmd) = @_;
5
6
$cmd eq "selection:rot13"
7
and $term->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $term->selection);
8
9
()
10
}