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

commit 2d6981c490199eb185f2bed4e5369d0f5ab9354d
Author: Marc Lehmann 
Date:   Mon Jan 9 01:21:43 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
@@ -35,10 +35,14 @@ sub on_button_press {
       };

       for ($text) {
+         $add_button->("rot13" => sub { y/A-Za-z/N-ZA-Mn-za-m/ });
+
          /^(\S+):(\d+):?$/
             and $add_button->("vi-commands to load '$1'" => sub { s/^(\S+):(\d+):?$/\x1b:e $1\x0d:$2\x0d/ });
+
          /%[0-9a-fA-F]{2}/ && !/%[^0-9a-fA-F]/ && !/%.[^0-9a-fA-F]/
             and $add_button->("uri unescape" => sub { s/%([0-9a-fA-F]{2})/chr hex $1/ge });
+
          /^(http|ftp|telnet|irc|news):\//
             and $add_button->("run x-www-browser" => sub { system "x-www-browser \Q$_\E &" });
       }
diff --git a/src/urxvt.pm b/src/urxvt.pm

--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -431,8 +431,10 @@ BEGIN {
       urxvt::warn ($msg);
    };

-   $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
+   delete $ENV{IFS};
    delete $ENV{CDPATH};
+   delete $ENV{BASH_ENV};
+   $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
 }

 my @hook_count;

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