*** empty log message ***

diff --git a/src/perl/selection-popup b/src/perl/selection-popup
index ce3fe5266b83cd6676c10e8cc21fd85c0a6e2017..e5984873ad47b55244225b65206430ad804ac915 100644 (file)
--- a/src/perl/selection-popup
+++ b/src/perl/selection-popup
@@ -55,7 +55,7 @@ sub on_button_press {
          $add_button->("rot13" => sub { y/A-Za-z/N-ZA-Mn-za-m/ });
 
          urxvt::safe
-            and $add_button->("eval perl expression" => sub { $_ = eval urxvt::untaint $_ });
+            and $add_button->("eval perl expression" => sub { no warnings; $_ = eval urxvt::untaint $_ });
 
          /^(\S+):(\d+):?$/
             and $add_button->("vi-commands to load '$1'" => sub { s/^(\S+):(\d+):?$/\x1b:e $1\x0d:$2\x0d/ });

diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs
index c5ea2909d6b804987f1e4f1659f018c0a8b76949..ef2bf4dcdebfdc71718f256e01ec24ecffaf8949 100644 (file)
--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -936,8 +936,15 @@ rxvt_term::ModLevel3Mask ()
 
 char *
 rxvt_term::display_id ()
+       ALIAS:
+           display_id = 0
+           locale     = 1
        CODE:
-        RETVAL = THIS->display->id;
+        switch (ix)
+          {
+            case 0: RETVAL = THIS->display->id; break;
+            case 1: RETVAL = THIS->locale;      break;
+          }
         OUTPUT:
         RETVAL
 

diff --git a/src/urxvt.pm b/src/urxvt.pm
index 62cb9aec797e70949f192cf4bc74c0935e5ee254..6ad1ca22dc673ed31e7594b14bd78949f550fa03 100644 (file)
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -919,6 +919,14 @@ Return the window id of the terminal window.
 
 Return various integers describing terminal characteristics.
 
+=item $lc_ctype = $term->locale
+
+Returns the LC_CTYPE category string used by this rxvt-unicode.
+
+=item $x_display = $term->display_id
+
+Return the DISPLAY used by rxvt-unicode.
+
 =item $modifiermask = $term->ModLevel3Mask
 
 =item $modifiermask = $term->ModMetaMask
@@ -1170,7 +1178,7 @@ sub add_item {
 sub add_separator {
    my ($self, $sep) = @_;
 
-   $sep ||= "═";
+   $sep ||= "=";
 
    $self->add_item ({
       rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" },