--- rxvt-unicode/src/perl/selection-popup	2006/01/20 20:07:39	1.18
+++ rxvt-unicode/src/perl/selection-popup	2006/03/08 15:43:02	1.19
@@ -62,6 +62,9 @@
          /./
             and $add_button->("eval perl expression" => sub { no warnings; $_ = eval $_ });
 
+         /./
+            and $add_button->((sprintf "to unicode hex index (%x)", ord) => sub { $_ = sprintf "%x", ord });
+
          /^(\S+):(\d+):?$/
             and $add_button->("vi-commands to load '$1'" => sub { s/^(\S+):(\d+):?$/\x1b:e $1\x0d:$2\x0d/ });