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

IDE: fixed uninitialized result

Browse Source 
git-svn-id: trunk@22109 -
This commit is contained in:
mattias 2009-10-12 11:38:35 +00:00
parent 08dcae4a3e
commit 69cb699ca6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/sourceeditor.pp
View File

@ -6742,6 +6742,7 @@ function TSourceNotebook.EditorGetIndent(Sender: TSynCustomBeautifier; Editor: T
LogCaret: TPoint; var FirstLinePos, LinesCount: Integer; Reason: TSynEditorCommand; LogCaret: TPoint; var FirstLinePos, LinesCount: Integer; Reason: TSynEditorCommand;
SetIndentProc: TSynBeautifierSetIndentProc): Boolean; SetIndentProc: TSynBeautifierSetIndentProc): Boolean;
begin begin
Result:=false;
if Assigned(OnGetIndent) then if Assigned(OnGetIndent) then
Result := OnGetIndent(Sender, GetActiveSE, LogCaret, FirstLinePos, LinesCount, Result := OnGetIndent(Sender, GetActiveSE, LogCaret, FirstLinePos, LinesCount,
Reason, SetIndentProc); Reason, SetIndentProc);