repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: d89b3327ec58dcabe8515eb889123cae00661c71:
path_to: 
revision_to: 

commit d89b3327ec58dcabe8515eb889123cae00661c71
Author: Marc Lehmann 
Date:   Wed Mar 8 15:43:02 2006 +0000

    *** empty log message ***

diff --git a/src/perl/selection-popup b/src/perl/selection-popup

--- a/src/perl/selection-popup
+++ b/src/perl/selection-popup
@@ -62,6 +62,9 @@ sub on_button_press {
          /./
             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/ });

-----END OF PAGE-----