| … | |
… | |
| 679 | @TERM_EXT = (); |
679 | @TERM_EXT = (); |
| 680 | $TERM->register_package ($_) for @pkg; |
680 | $TERM->register_package ($_) for @pkg; |
| 681 | } |
681 | } |
| 682 | |
682 | |
| 683 | for ( |
683 | for ( |
| 684 | grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2 |
684 | (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2), |
|
|
685 | @{ delete $TERM->{perl_ext_3} } |
| 685 | ) { |
686 | ) { |
| 686 | if ($_ eq "default") { |
687 | if ($_ eq "default") { |
| 687 | |
688 | |
| 688 | $ext_arg{$_} = [] |
689 | $ext_arg{$_} = [] |
| 689 | for |
690 | for |
| 690 | qw(selection option-popup selection-popup readline), |
691 | qw(selection option-popup selection-popup readline), |
| 691 | @{ delete $TERM->{perl_ext_3} }, |
|
|
| 692 | map $_->[0], values %{ $TERM->{meta}{binding} }; |
692 | map $_->[0], values %{ $TERM->{meta}{binding} }; |
| 693 | |
693 | |
| 694 | for ($TERM->_keysym_resources) { |
694 | for ($TERM->_keysym_resources) { |
| 695 | next if /^(?:string|command|builtin|builtin-string|perl)/; |
695 | next if /^(?:string|command|builtin|builtin-string|perl)/; |
| 696 | next unless /^([A-Za-z0-9_\-]+):/; |
696 | next unless /^([A-Za-z0-9_\-]+):/; |
