| … | |
… | |
| 680 | @{ delete $TERM->{perl_ext_3} }, |
680 | @{ delete $TERM->{perl_ext_3} }, |
| 681 | grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2 |
681 | grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2 |
| 682 | ) { |
682 | ) { |
| 683 | if ($_ eq "default") { |
683 | if ($_ eq "default") { |
| 684 | |
684 | |
| 685 | $ext_arg{$_} ||= [] |
685 | $ext_arg{$_} = [] |
| 686 | for |
686 | for |
| 687 | qw(selection option-popup selection-popup readline), |
687 | qw(selection option-popup selection-popup readline), |
| 688 | map $_->[0], values %{ $TERM->{meta}{binding} }; |
688 | map $_->[0], values %{ $TERM->{meta}{binding} }; |
|
|
689 | |
|
|
690 | for ($TERM->_keysym_resources) { |
|
|
691 | next if /^(?:string|command|builtin|builtin-string|perl)/; |
|
|
692 | next unless /^([A-Za-z0-9_\-]+):/; |
|
|
693 | |
|
|
694 | my $ext = $1; |
|
|
695 | $ext =~ y/-/_/; |
|
|
696 | |
|
|
697 | $ext_arg{$ext} = []; |
|
|
698 | } |
| 689 | |
699 | |
| 690 | } elsif (/^-(.*)$/) { |
700 | } elsif (/^-(.*)$/) { |
| 691 | delete $ext_arg{$1}; |
701 | delete $ext_arg{$1}; |
| 692 | |
702 | |
| 693 | } elsif (/^([^<]+)<(.*)>$/) { |
703 | } elsif (/^([^<]+)<(.*)>$/) { |
| … | |
… | |
| 697 | $ext_arg{$_} ||= []; |
707 | $ext_arg{$_} ||= []; |
| 698 | } |
708 | } |
| 699 | } |
709 | } |
| 700 | |
710 | |
| 701 | # now register default key bindings |
711 | # now register default key bindings |
|
|
712 | for my $ext (sort keys %ext_arg) { |
| 702 | while (my ($k, $v) = each %{ $TERM->{meta}{binding} }) { |
713 | while (my ($k, $v) = each %{ $TERM->{meta}{ext}{$ext}{binding} }) { |
| 703 | $TERM->bind_action ($k, "$v->[0]:$v->[1]"); |
714 | $TERM->bind_action ($k, "$v->[0]:$v->[1]"); |
|
|
715 | } |
| 704 | } |
716 | } |
| 705 | |
717 | |
| 706 | for my $ext (sort keys %ext_arg) { |
718 | for my $ext (sort keys %ext_arg) { |
| 707 | my @files = grep -f $_, map "$_/$ext", @dirs; |
719 | my @files = grep -f $_, map "$_/$ext", @dirs; |
| 708 | |
720 | |
