diff --git a/doc/t2h.pm b/doc/t2h.pm
index 4875d66305..4fb17d0174 100644
--- a/doc/t2h.pm
+++ b/doc/t2h.pm
@@ -55,7 +55,8 @@ sub get_formatting_function($$) {
# determine texinfo version
my $package_version = ff_get_conf('PACKAGE_VERSION');
-$package_version =~ s/\+dev$//;
+$package_version =~ s/\+nc$//;
+$package_version =~ s/\+?dev$//;
my $program_version_num = version->declare($package_version)->numify;
my $program_version_6_8 = $program_version_num >= 6.008000;
@@ -119,29 +120,8 @@ sub ffmpeg_heading_command($$$$$)
}
my $heading_level;
- # node is used as heading if there is nothing else.
- if ($cmdname eq 'node') {
- if (!$output_unit or
- (((!$output_unit->{'extra'}->{'section'}
- and $output_unit->{'extra'}->{'node'}
- and $output_unit->{'extra'}->{'node'} eq $command)
- or
- ((($output_unit->{'extra'}->{'unit_command'}
- and $output_unit->{'extra'}->{'unit_command'} eq $command)
- or
- ($output_unit->{'unit_command'}
- and $output_unit->{'unit_command'} eq $command))
- and $command->{'extra'}
- and not $command->{'extra'}->{'associated_section'}))
- # bogus node may not have been normalized
- and defined($command->{'extra'}->{'normalized'}))) {
- if ($command->{'extra'}->{'normalized'} eq 'Top') {
- $heading_level = 0;
- } else {
- $heading_level = 3;
- }
- }
- } else {
+ # Never use node for heading
+ if ($cmdname ne 'node') {
if (defined($command->{'extra'})
and defined($command->{'extra'}->{'section_level'})) {
$heading_level = $command->{'extra'}->{'section_level'};
@@ -153,58 +133,58 @@ sub ffmpeg_heading_command($$$$$)
}
}
- my $heading = $self->command_text($command);
- # $heading not defined may happen if the command is a @node, for example
- # if there is an error in the node.
- if (defined($heading) and $heading ne '' and defined($heading_level)) {
-
- if ($root_commands{$cmdname}
- and $sectioning_commands{$cmdname}) {
- my $content_href = $self->command_contents_href($command, 'contents',
- $self->{'current_filename'});
- if ($content_href) {
- my $this_href = $content_href =~ s/^\#toc-/\#/r;
- $heading .= ''.
- '".
- ($ENV{"FA_ICONS"} ? ''
- : '#').
- ' '.
- '".
- ($ENV{"FA_ICONS"} ? ''
- : 'TOC').
- ''.
- '';
+ if (defined($heading_level)) {
+ my $heading = $self->command_text($command);
+ # empty heading corresponds to an empty @top
+ if ($heading ne '') {
+ if ($root_commands{$cmdname}
+ and $sectioning_commands{$cmdname}) {
+ my $content_href = $self->command_contents_href($command, 'contents',
+ $self->{'current_filename'});
+ if ($content_href) {
+ my $this_href = $content_href =~ s/^\#toc-/\#/r;
+ $heading .= ''.
+ '".
+ ($ENV{"FA_ICONS"} ? ''
+ : '#').
+ ' '.
+ '".
+ ($ENV{"FA_ICONS"} ? ''
+ : 'TOC').
+ ''.
+ '';
+ }
}
- }
-
- my $in_preformatted;
- if ($program_version_num >= 7.001090) {
- $in_preformatted = $self->in_preformatted_context();
- } else {
- $in_preformatted = $self->in_preformatted();
- }
- if ($in_preformatted) {
- $result .= $heading."\n";
- } else {
- # if the level was changed, set the command name right
- if ($cmdname ne 'node'
- and $heading_level ne $Texinfo::Common::command_structuring_level{$cmdname}) {
- $cmdname
- = $Texinfo::Common::level_to_structuring_command{$cmdname}->[$heading_level];
- }
- if ($program_version_num >= 7.000000) {
- $result .= &{get_formatting_function($self,'format_heading_text')}($self,
- $cmdname, [$cmdname], $heading,
- $heading_level +$self->get_conf('CHAPTER_HEADER_LEVEL') -1,
- $heading_id, $command);
+ my $in_preformatted;
+ if ($program_version_num >= 7.001090) {
+ $in_preformatted = $self->in_preformatted_context();
} else {
- $result .= &{get_formatting_function($self,'format_heading_text')}(
- $self, $cmdname, $heading,
- $heading_level +
- $self->get_conf('CHAPTER_HEADER_LEVEL') - 1, $command);
+ $in_preformatted = $self->in_preformatted();
+ }
+ if ($in_preformatted) {
+ $result .= $heading."\n";
+ } else {
+ # if the level was changed, set the command name right
+ if ($cmdname ne 'node'
+ and $heading_level ne $Texinfo::Common::command_structuring_level{$cmdname}) {
+ $cmdname
+ = $Texinfo::Common::level_to_structuring_command{$cmdname}->[$heading_level];
+ }
+ if ($program_version_num >= 7.000000) {
+ $result .= &{get_formatting_function($self,'format_heading_text')}($self,
+ $cmdname, [$cmdname], $heading,
+ $heading_level +$self->get_conf('CHAPTER_HEADER_LEVEL') -1,
+ $heading_id, $command);
+
+ } else {
+ $result .= &{get_formatting_function($self,'format_heading_text')}(
+ $self, $cmdname, $heading,
+ $heading_level +
+ $self->get_conf('CHAPTER_HEADER_LEVEL') - 1, $command);
+ }
}
}
}