From 18233aa775cd93b86850320a2eb9fbd09b217815 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 6 Jul 2016 06:59:39 +0200
Subject: [PATCH] projects group, prevent a useless free-standing-project
 protection

the FSP remains a FSP even when a group is opened
---
 src/ce_main.pas | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index dcf59381..0657e4ac 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -2977,13 +2977,6 @@ end;
 
 procedure TCEMainForm.actProjOpenGroupExecute(Sender: TObject);
 begin
-  if (fProject <> nil) and not fProject.inGroup and
-    fProject.modified then
-  begin
-    if dlgFileChangeClose(fProject.filename) = mrCancel then
-      exit;
-    fProject.getProject.Free;
-  end;
   if fProjectGroup.groupModified then
   begin
     if dlgFileChangeClose(fProjectGroup.groupFilename) = mrCancel then