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

SynEdit: Cleanup.

Browse Source 
git-svn-id: trunk@64628 -
This commit is contained in:
juha 2021-02-20 20:40:46 +00:00
parent a523ee94b3
commit b2aa58981c
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditautocomplete.pp
View File

@ -453,9 +453,7 @@ begin
if fAutoCompleteList.Count > 0 then begin
S := fAutoCompleteList[0];
DebugLn(['TCustomSynAutoComplete.ParseCompletionList: ', S]);
BorlandDCI := (S <> '') and (S[1] = '[');
Assert((sComplKey='') and (sComment='') and (sComplValue=''), 'ParseCompletionList: strings not empty.');
TemplateStarted:=false;
for i := 0 to fAutoCompleteList.Count - 1 do begin
S := fAutoCompleteList[i];