… | |
… | |
682 | if ($_ eq "default") { |
682 | if ($_ eq "default") { |
683 | |
683 | |
684 | $ext_arg{$_} = [] |
684 | $ext_arg{$_} = [] |
685 | for |
685 | for |
686 | qw(selection option-popup selection-popup readline), |
686 | qw(selection option-popup selection-popup readline), |
|
|
687 | @{ delete $TERM->{perl_ext_3} }, |
687 | map $_->[0], values %{ $TERM->{meta}{binding} }, |
688 | map $_->[0], values %{ $TERM->{meta}{binding} }; |
688 | @{ delete $TERM->{perl_ext_3} }; |
|
|
689 | |
689 | |
690 | for ($TERM->_keysym_resources) { |
690 | for ($TERM->_keysym_resources) { |
691 | next if /^(?:string|command|builtin|builtin-string|perl)/; |
691 | next if /^(?:string|command|builtin|builtin-string|perl)/; |
692 | next unless /^([A-Za-z0-9_\-]+):/; |
692 | next unless /^([A-Za-z0-9_\-]+):/; |
693 | |
693 | |
694 | my $ext = $1; |
694 | my $ext = $1; |
695 | $ext =~ y/-/_/; |
|
|
696 | |
695 | |
697 | $ext_arg{$ext} = []; |
696 | $ext_arg{$ext} = []; |
698 | } |
697 | } |
699 | |
698 | |
700 | } elsif (/^-(.*)$/) { |
699 | } elsif (/^-(.*)$/) { |