if ($merge_bindings{$lookup}) {
$binding = $merge_bindings{$lookup};
} else {
- # this action is not defined in the merge from set, so forget it
- next;
+ if ($key =~ /^\+/) {
+ # forced inclusion of bindings from template
+ } else {
+ # this action is not defined in the merge from set, so forget it
+ next;
+ }
}
}
foreach $k (keys %gtk_modifier_map) {
$gtk_binding =~ s/\@$k\@/$gtk_modifier_map{$k}/;
}
- print "(gtk_accel_map \"<Actions>/$action\" \"$gtk_binding\")\n";
+ print "(gtk_accel_path \"<Actions>/$action\" \"$gtk_binding\")\n";
}
}