From 431bef0ffed86947eb290f6e101f5e7abf57ef8a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 8 Feb 2012 23:49:00 +0000
Subject: [PATCH] IDE: fpdoceditor: preserve space of other elements, current
 element needs special

git-svn-id: trunk@35253 -
---
 ide/codehelp.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ide/codehelp.pas b/ide/codehelp.pas
index 533962495b..e1aa803040 100644
--- a/ide/codehelp.pas
+++ b/ide/codehelp.pas
@@ -1304,7 +1304,7 @@ begin
     PackageNode.AppendChild(ModuleNode);
     // write the XML to a string
     ms:=TMemoryStream.Create;
-    WriteXMLFile(Doc,ms);
+    WriteXMLFile(Doc,ms,[xwfPreserveWhiteSpace]);
     ms.Position:=0;
     SetLength(s,ms.Size);
     if s<>'' then
@@ -1416,7 +1416,7 @@ begin
     MemStream.Position:=0;
     Result:=chprFailed;
     try
-      ReadXMLFile(ADocFile.Doc,MemStream,CurFilename);
+      ReadXMLFile(ADocFile.Doc,MemStream,CurFilename,[xrfPreserveWhiteSpace]);
       ADocFile.DocErrorMsg:='';
       Result:=chprSuccess;
     except
@@ -1469,7 +1469,7 @@ begin
   // write Doc to xml stream
   try
     ms:=TMemoryStream.Create;
-    WriteXMLFile(ADocFile.Doc, ms);
+    WriteXMLFile(ADocFile.Doc,ms,[xwfPreserveWhiteSpace]);
     ms.Position:=0;
     SetLength(s,ms.Size);
     if s<>'' then