… | |
… | |
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 | |