From 636f619d271f2ec3d9ec8782f6e5d78b1a75fbad Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 27 Apr 2003 21:25:23 +0000
Subject: [PATCH] implemented saving global defines

git-svn-id: trunk@4102 -
---
 ide/codetoolsoptions.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ide/codetoolsoptions.pas b/ide/codetoolsoptions.pas
index ecb9968203..79e0cda56b 100644
--- a/ide/codetoolsoptions.pas
+++ b/ide/codetoolsoptions.pas
@@ -464,8 +464,9 @@ begin
                              FCursorBeyondEOL,true);
 
     // Define templates
-    FGlobalDefineTemplates.SaveToXMLConfig(XMLConfig,'CodeToolsGlobalDefines/',
-      true,false,true,false);
+    if FGlobalDefineTemplates<>nil then
+      FGlobalDefineTemplates.SaveToXMLConfig(XMLConfig,
+        'CodeToolsGlobalDefines/',true,false,true,false);
 
     // CodeCreation
     XMLConfig.SetDeleteValue(
@@ -518,7 +519,7 @@ begin
     XMLConfig.Free;
   except
     on E: Exception do begin
-      writeln('[TCodeToolsOptions.Load]  error writing "',FFilename,'": ',E.Message);
+      writeln('[TCodeToolsOptions.Save]  error writing "',FFilename,'": ',E.Message);
     end;
   end;
 end;