paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: fixed delting EndOfTokenChars at end of code template, fixed #40498

Browse Source
This commit is contained in:
mattias 2023-12-19 10:38:35 +01:00
parent 3f6dc2d6ad
commit 0b4013a8fe
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/codemacroprompt.pas
View File

@ -534,18 +534,6 @@ begin
// p must be logical, until template text is inserted // p must be logical, until template text is inserted
end; end;
// delete double end separator (e.g. avoid creating two semicolons 'begin end;;')
if (AEditor.BlockEnd.Y>0) and (AEditor.BlockEnd.Y<=AEditor.Lines.Count)
then begin
LineText:=AEditor.Lines[AEditor.BlockEnd.Y-1];
if AEditor.BlockEnd.X <= length(LineText) then
i := pos(LineText[AEditor.BlockEnd.X], EndOfTokenChr)
else
i := -1;
if i > 0 then
Parser.TrimEOTChar(EndOfTokenChr[i]);
end;
if Parser.EditCellList.Count > 0 then if Parser.EditCellList.Count > 0 then
i := AEditor.PluginCount - 1 i := AEditor.PluginCount - 1
else else