--- rxvt-unicode/src/perl/tabbed	2012/08/15 19:41:37	1.34
+++ rxvt-unicode/src/perl/tabbed	2015/01/16 20:13:01	1.38
@@ -1,13 +1,13 @@
 #! perl
 
-#:META:X_RESOURCE:tabbar-fg:colour:tab bar foreground colour
-#:META:X_RESOURCE:tabbar-bg:colour:tab bar background colour
-#:META:X_RESOURCE:tab-fg:colour:tab foreground colour
-#:META:X_RESOURCE:tab-bg:colour:tab background colour
+#:META:RESOURCE:tabbar-fg:colour:tab bar foreground colour
+#:META:RESOURCE:tabbar-bg:colour:tab bar background colour
+#:META:RESOURCE:tab-fg:colour:tab foreground colour
+#:META:RESOURCE:tab-bg:colour:tab background colour
 
 =head1 NAME
 
-   tabbed - tabbed interface to urxvt
+tabbed - tabbed interface to urxvt
 
 =head1 DESCRIPTION
 
@@ -216,6 +216,7 @@
    my ($self, $event) = @_;
 
    $self->{cur}->key_press ($event->{state}, $event->{keycode}, $event->{time});
+   $self->{cur}->refresh_check;
 
    1
 }
@@ -224,6 +225,7 @@
    my ($self, $event) = @_;
 
    $self->{cur}->key_release ($event->{state}, $event->{keycode}, $event->{time});
+   $self->{cur}->refresh_check;
 
    1
 }
@@ -402,7 +404,7 @@
 # simply proxies all interesting calls back to the tabbed class.
 
 {
-   for my $hook qw(start destroy key_press property_notify) {
+   for my $hook (qw(start destroy key_press property_notify)) {
       eval qq{
          sub on_$hook {
             my \$parent = \$_[0]{term}{parent}