From 78023a3cfdba98f0a8cebddbe9c3f1fe86555e1a Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Tue, 10 Jul 2001 10:44:15 +0000
Subject: [PATCH] MG: save unit only if modified

git-svn-id: trunk@319 -
---
 ide/main.pp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index e2009e573e..9d3a6d2655 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -147,7 +147,6 @@ type
     Procedure mnuViewFormsClicked(Sender : TObject);
 
     procedure mnuToggleFormUnitClicked(Sender : TObject);
-
     procedure mnuNewProjectClicked(Sender : TObject);
     procedure mnuOpenProjectClicked(Sender : TObject);
     procedure mnuSaveProjectClicked(Sender : TObject);
@@ -1731,6 +1730,11 @@ writeln('TMainIDE.DoSaveEditorUnit A PageIndex=',PageIndex);
     ActiveUnitInfo.Source.Source:=ActiveSrcEdit.Source.Text;
     ActiveUnitInfo.Modified:=true;
   end;
+  if (not SaveToTestDir) and (not ActiveUnitInfo.Modified) and (not SaveAs) then
+  begin
+    Result:=mrOk;
+    exit;
+  end;
 
   // load old resource file
   ResourceFileName:=Project.SearchResourceFilename(ActiveUnitInfo);
@@ -3594,8 +3598,8 @@ end.
 { =============================================================================
 
   $Log$
-  Revision 1.109  2001/07/08 22:33:56  lazarus
-  MG: added rapid testing project
+  Revision 1.110  2001/07/10 10:44:15  lazarus
+  MG: save unit only if modified
 
   Revision 1.105  2001/07/01 15:55:43  lazarus
   MG: JumpToCompilerMessage now centered in source editor