--- rxvt-unicode/src/perl/automove-background 2006/03/04 22:36:50 1.6 +++ rxvt-unicode/src/perl/automove-background 2006/03/04 22:39:52 1.7 @@ -5,13 +5,11 @@ if ($op == 20) { my ($pic, $commands) = split(/;/, $args, 2); - warn " pic=$pic commands=$commands"; if ($pic !~ /^$/ && $commands !~ /[+\-]/) { my ($x, $y) = $self->XTranslateCoordinates ( $self->vt, $self->DefaultRootWindow, 0, 0 ); - warn " $x $y \\033]20;$pic;=+$x+$y\\007"; $self->cmd_parse ("\033]20;$pic;=+$x+$y\007"); return 1; }