--- rxvt-unicode/src/perl/option-popup 2006/01/08 00:27:47 1.1 +++ rxvt-unicode/src/perl/option-popup 2006/01/08 00:41:20 1.3 @@ -9,14 +9,14 @@ my %unsafe = map +($_ => 1), qw(borderLess console iconic loginShell reverseVideo scrollBar scrollBar_floating scrollBar_right - secondaryScreen transparent utmpInhibit); + secondaryScreen transparent utmpInhibit meta8); for my $name (sort keys %urxvt::OPTION) { next if $unsafe{$name}; my $optval = $urxvt::OPTION{$name}; - $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]); warn "toggle $optval, $_[0]" }, + $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]) }, $self->option ($optval)); }