| … | |
… | |
| 675 | @TERM_EXT = (); |
675 | @TERM_EXT = (); |
| 676 | $TERM->register_package ($_) for @pkg; |
676 | $TERM->register_package ($_) for @pkg; |
| 677 | } |
677 | } |
| 678 | |
678 | |
| 679 | for ( |
679 | for ( |
| 680 | @{ delete $TERM->{perl_ext_3} }, |
|
|
| 681 | grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2 |
680 | grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2 |
| 682 | ) { |
681 | ) { |
| 683 | if ($_ eq "default") { |
682 | if ($_ eq "default") { |
| 684 | |
683 | |
| 685 | $ext_arg{$_} = [] |
684 | $ext_arg{$_} = [] |
| 686 | for |
685 | for |
| 687 | qw(selection option-popup selection-popup readline), |
686 | qw(selection option-popup selection-popup readline), |
| 688 | map $_->[0], values %{ $TERM->{meta}{binding} }; |
687 | 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 | |
