--- rxvt-unicode/src/perl/tabbed	2012/06/10 17:31:53	1.33
+++ rxvt-unicode/src/perl/tabbed	2017/02/26 06:36:46	1.39
@@ -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
 
@@ -18,7 +18,9 @@
 
 Clicking a button will activate that tab. Pressing B<Shift-Left> and
 B<Shift-Right> will switch to the tab left or right of the current one,
-while B<Shift-Down> creates a new tab.
+while B<Shift-Down> creates a new tab. Pressing B<Ctrl-Left> and
+B<Ctrl-Right> will renumber the current tab by moving it to the left or
+to the right.
 
 The tabbar itself can be configured similarly to a normal terminal, but
 with a resource class of C<URxvt.tabbed>. In addition, it supports the
@@ -29,7 +31,7 @@
    URxvt.tabbed.tab-fg:    <colour-index, default 0>
    URxvt.tabbed.tab-bg:    <colour-index, default 1>
 
-See I<COLOR AND GRAPHICS> in the @@RXVT_NAME@@(1) manpage for valid
+See I<COLOR AND GRAPHICS> in the urxvt(1) manpage for valid
 indices.
 
 =cut
@@ -214,6 +216,7 @@
    my ($self, $event) = @_;
 
    $self->{cur}->key_press ($event->{state}, $event->{keycode}, $event->{time});
+   $self->{cur}->refresh_check;
 
    1
 }
@@ -222,6 +225,7 @@
    my ($self, $event) = @_;
 
    $self->{cur}->key_release ($event->{state}, $event->{keycode}, $event->{time});
+   $self->{cur}->refresh_check;
 
    1
 }
@@ -400,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}