(root)/
texinfo-7.1/
tp/
t/
init/
undef_node_file_name.init
use strict;

sub _undef_node_file_name($$$)
{
  my $self = shift;
  my $element = shift;
  my $filename = shift;

  if ($element->{'extra'}
      and $element->{'extra'}->{'normalized'}) {
    my $normalized_node_name
       = $element->{'extra'}->{'normalized'};
    if ($normalized_node_name eq 'chap-Other') {
      return undef;
    }
  }
  return $filename;
}

texinfo_register_file_id_setting_function('node_file_name', \&_undef_node_file_name);

1;