From 70c27e22ebc5c903e84297a84d02dd68d4362873 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Wed, 8 Mar 2006 15:43:02 +0000
Subject: [PATCH] *** empty log message ***

---
 src/perl/selection-popup | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/perl/selection-popup b/src/perl/selection-popup
index 2db8a90c..56b43c4d 100644
--- 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/ });
 
-- 
2.34.1