From 603cc585e843312c8f665f81008352d39f5172f0 Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Tue, 20 Jul 2021 17:11:16 -0300 Subject: [PATCH] Prevents issues when deleting lines in normal mode. --- source/ide/ide_methods.bas | 40 +++++++++++++++++++++----------------- 1 file changed, 22 insertions(+), 18 deletions(-) diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index 152aaa52d..3b8f5a04b 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -7394,15 +7394,17 @@ SUB idedelline (i) END IF NEXT - FOR b = i TO iden - 1 - SWAP IdeBreakpoints(b), IdeBreakpoints(b + 1) - NEXT - REDIM _PRESERVE IdeBreakpoints(iden - 1) AS _BYTE + IF vWatchOn THEN + FOR b = i TO iden - 1 + SWAP IdeBreakpoints(b), IdeBreakpoints(b + 1) + NEXT + REDIM _PRESERVE IdeBreakpoints(iden - 1) AS _BYTE - FOR b = i TO iden - 1 - SWAP IdeSkipLines(b), IdeSkipLines(b - 1) - NEXT - REDIM _PRESERVE IdeSkipLines(iden - 1) AS _BYTE + FOR b = i TO iden - 1 + SWAP IdeSkipLines(b), IdeSkipLines(b - 1) + NEXT + REDIM _PRESERVE IdeSkipLines(iden - 1) AS _BYTE + END IF idegotoline i textlen = CVL(MID$(idet$, ideli, 4)) @@ -8207,17 +8209,19 @@ SUB ideinsline (i, text$) END IF NEXT - REDIM _PRESERVE IdeBreakpoints(iden + 1) AS _BYTE - FOR b = iden + 1 TO i STEP -1 - SWAP IdeBreakpoints(b), IdeBreakpoints(b - 1) - NEXT - IdeBreakpoints(i) = 0 + IF vWatchOn THEN + REDIM _PRESERVE IdeBreakpoints(iden + 1) AS _BYTE + FOR b = iden + 1 TO i STEP -1 + SWAP IdeBreakpoints(b), IdeBreakpoints(b - 1) + NEXT + IdeBreakpoints(i) = 0 - REDIM _PRESERVE IdeSkipLines(iden + 1) AS _BYTE - FOR b = iden + 1 TO i STEP -1 - SWAP IdeSkipLines(b), IdeSkipLines(b - 1) - NEXT - IdeSkipLines(i) = 0 + REDIM _PRESERVE IdeSkipLines(iden + 1) AS _BYTE + FOR b = iden + 1 TO i STEP -1 + SWAP IdeSkipLines(b), IdeSkipLines(b - 1) + NEXT + IdeSkipLines(i) = 0 + END IF text$ = RTRIM$(text$)