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

SynEdit, Code-Templates: fixed remove double semicolon (or end of token). regression from rev 20732 #d6b3aff8c9. Fix issue #14161

Browse Source 
git-svn-id: trunk@20898 -
This commit is contained in:
martin 2009-07-19 13:15:55 +00:00
parent 9f69aa1518
commit 277398c12c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/codemacroprompt.pas
View File

@ -441,7 +441,10 @@ begin
if (AEditor.BlockEnd.Y>0) and (AEditor.BlockEnd.Y<=AEditor.Lines.Count) if (AEditor.BlockEnd.Y>0) and (AEditor.BlockEnd.Y<=AEditor.Lines.Count)
then begin then begin
LineText:=AEditor.Lines[AEditor.BlockEnd.Y-1]; LineText:=AEditor.Lines[AEditor.BlockEnd.Y-1];
i := pos(LineText[AEditor.BlockEnd.X], EndOfTokenChr); if AEditor.BlockEnd.X <= length(LineText) then
i := pos(LineText[AEditor.BlockEnd.X], EndOfTokenChr)
else
i := -1;
if i > 0 then if i > 0 then
Parser.TrimEOTChar(EndOfTokenChr[i]); Parser.TrimEOTChar(EndOfTokenChr[i]);
end; end;