From: root <root>
Date: Mon, 23 Jan 2006 23:13:02 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=476ee0cd3af1820cd771cd7dd0d028aecbe37b3a;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/Changes b/Changes
index 508871b0..b5a40b65 100644
--- a/Changes
+++ b/Changes
@@ -16,7 +16,7 @@ WISH: just for fun, do shade and tint with XRender.
 DUMB: support tex fonts
 
 TODO: kill arabic presentation form table
-TODO: bug ayin to document possible configure options?
+TODO: iso14755 code interacts badly with popup grabs
 
 7.2  Sun Jan 22 21:58:16 CET 2006
         - bugfix: urxvt (not urxvtd) did not correctly handle multiple
diff --git a/src/perl/digital-clock b/src/perl/digital-clock
index ca02d8e5..680545da 100644
--- a/src/perl/digital-clock
+++ b/src/perl/digital-clock
@@ -2,7 +2,7 @@
 
 # this creates a simple digital clock
 
-sub on_init {
+sub on_start {
    my ($self) = @_;
 
    $self->{overlay} = $self->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0);
diff --git a/src/perl/selection b/src/perl/selection
index df943f00..14a53091 100644
--- a/src/perl/selection
+++ b/src/perl/selection
@@ -13,7 +13,6 @@ sub on_init {
    my ($self) = @_;
 
    for (my $idx = 0; defined (my $res = $self->x_resource ("selection.pattern-$idx")); $idx++) {
-      no re 'eval'; # just to be sure
       $res = $self->locale_decode ($res);
       utf8::encode $res;
       push @{ $self->{patterns} }, qr/$res/;
@@ -22,7 +21,7 @@ sub on_init {
    ()
 }
 
-# "find interetsing things"-patterns
+# "find interesting things"-patterns
 my @mark_patterns = (
    # common types of "parentheses"
    qr{ (?<![^[:space:]]) ‘ ([^‘’]+) ’ (?![^[:space]]) }x,
@@ -41,7 +40,7 @@ my @mark_patterns = (
    )}x,
 
    # shell-like argument quoting, basically always matches
-   qr{\G [\ \t|&;<>()] *(
+   qr{\G [\ \t|&;<>()]* (
       (?:
          [^\\"'\ \t|&;<>()]+
          | \\.
diff --git a/src/perl/selection-pastebin b/src/perl/selection-pastebin
index c2d8e001..0464236e 100644
--- a/src/perl/selection-pastebin
+++ b/src/perl/selection-pastebin
@@ -15,7 +15,7 @@ sub upload_paste {
 
    my $msg = "uploaded as $filename";
 
-   if (open my $o, ">", $tmpfile) {
+   if (open my $o, ">:utf-8", $tmpfile) {
       chmod 0644, $tmpfile;
       print $o $txt;
       close $o;