# Undo continuation indentation in certain sequences
my ( $self, $ri_first, $ri_last, $rix_seqno_controlling_ci ) = @_;
- my ( $line_1, $line_2, $lev_last );
+ my ( $line_1, $line_2 );
my $max_line = @{$ri_first} - 1;
my $rseqno_controlling_my_ci = $self->[_rseqno_controlling_my_ci_];
my $ibeg = $ri_first->[$line];
my $iend = $ri_last->[$line];
- my $lev = $levels_to_go[$ibeg];
#-----------------------------------
# SECTION 1: Undo needless common CI
# sort { $a <=> $b }
# grep { $lookup->{$_} ne $default } keys %$lookup );
- if ( $line > 0 && !$skip_SECTION_1 ) {
+ if ( $line && !$skip_SECTION_1 ) {
+
+ my $ibeg_last = $ri_first->[ $line - 1 ];
+ my $lev = $levels_to_go[$ibeg];
+ my $lev_last = $levels_to_go[$ibeg_last];
# if we have started a chain..
if ($line_1) {
$undo_extended_ci{$seqno} = 1;
}
}
-
- $lev_last = $lev;
}
return;