> > The following seems to work for the non-XS code:
> > 
> > diff --git a/tta/perl/Texinfo/Convert/HTML.pm 
> > b/tta/perl/Texinfo/Convert/HTML.pm
> > index c68559c7eb..3435405254 100644
> > --- a/tta/perl/Texinfo/Convert/HTML.pm
> > +++ b/tta/perl/Texinfo/Convert/HTML.pm
> > @@ -9247,6 +9247,13 @@ sub converter_initialize($)
> >        $self->force_conf('SPLIT', 'node');
> >      }
> >  
> > +    if (!$split) {
> > +      my $use_accesskey = $self->get_conf('USE_ACCESSKEY');
> > +      if ($use_accesskey) {
> > +        $self->force_conf('USE_ACCESSKEY', 0);
> > +      }
> > +    }
> > +
> >      my $max_header_level = $self->get_conf('MAX_HEADER_LEVEL');
> >      if (!defined($max_header_level)) {
> >        $self->force_conf('MAX_HEADER_LEVEL', $defaults{'MAX_HEADER_LEVEL'});
> > 
> > (Similar code would also be needed for the XS code.)
> > 
> > Of course, this makes it impossible to turn USE_ACCESSKEY on deliberately,
> > which may or may not be a good thing.
> 
> For such cases, I prefer to turn the default value to undef, and then,
> if undef, set based on the SPLIT value, if not undef, obey.
> 
> If this is ok with that change, I could do the patch today or tomorrow.

That makes sense.  I wasn't sure how the case of one variable affecting
the value of another should be handled but I agree with doing it the
way that you describe.

Reply via email to