From d121635fa3e9f384dd62a04c8809c17307f4224a Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 30 Sep 2012 08:39:53 +0000
Subject: [PATCH] IDE: formatting

git-svn-id: trunk@38917 -
---
 ide/project.pp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/ide/project.pp b/ide/project.pp
index 1a12ae657f..3e6098968f 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -2496,10 +2496,8 @@ procedure TUnitInfo.SetModified(const AValue: boolean);
 begin
   if Modified=AValue then exit;
   fModified:=AValue;
-  if not fModified then begin
-    if Source<>nil then
-      fSourceChangeStep:=Source.ChangeStep;
-  end;
+  if (not fModified) and Assigned(Source) then
+    fSourceChangeStep:=Source.ChangeStep;
 end;
 
 procedure TUnitInfo.SetProject(const AValue: TProject);