From 3feb56ff9ab14981989fb06c2229a420127e8fc7 Mon Sep 17 00:00:00 2001
From: elmex <elmex>
Date: Mon, 2 Jan 2006 21:33:25 +0000
Subject: [PATCH] added the selection:rot13 feature

---
 src/perl/selection | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 src/perl/selection

diff --git a/src/perl/selection b/src/perl/selection
new file mode 100644
index 00000000..9189f597
--- /dev/null
+++ b/src/perl/selection
@@ -0,0 +1,5 @@
+sub on_keyboard_command {
+      my ($term, $cmd) = @_;
+         $cmd eq "selection:rot13"
+                  and $term->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $term->selection);
+}
-- 
2.34.1