ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
rxvt-unicode
/
src
/
perl
/
selection
Revision:
1.6
Committed:
Tue Jan 3 19:12:53 2006 UTC
(18 years, 5 months ago) by
root
Branch:
MAIN
Changes since
1.5
:
+1 -1 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
}
11
12
sub on_sel_extend {
13
warn "hiya\n";#d#
14
()
15
}