| … | |
… | |
| 735 | (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2), |
735 | (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2), |
| 736 | ) { |
736 | ) { |
| 737 | if ($_ eq "default") { |
737 | if ($_ eq "default") { |
| 738 | |
738 | |
| 739 | $ext_arg{$_} = [] |
739 | $ext_arg{$_} = [] |
| 740 | for qw(selection option-popup selection-popup readline searchable-scrollback); |
740 | for qw(selection option-popup selection-popup readline searchable-scrollback confirm-paste); |
| 741 | |
741 | |
| 742 | for ($TERM->_keysym_resources) { |
742 | for ($TERM->_keysym_resources) { |
| 743 | next if /^(?:string|command|builtin|builtin-string|perl)/; |
743 | next if /^(?:string|command|builtin|builtin-string|perl)/; |
| 744 | next unless /^([A-Za-z0-9_\-]+):/; |
744 | next unless /^([A-Za-z0-9_\-]+):/; |
| 745 | |
745 | |
