From b0d883f9154ca62f935a9cd28ce8c0e3a6dd8c8f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 21 Jul 2013 08:21:39 +0000
Subject: [PATCH] lazutils: xmlread: preserve whitespace between attributes

git-svn-id: trunk@42167 -
---
 components/lazutils/laz2_xmlread.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/lazutils/laz2_xmlread.pas b/components/lazutils/laz2_xmlread.pas
index 30e90fad83..6843f787b4 100644
--- a/components/lazutils/laz2_xmlread.pas
+++ b/components/lazutils/laz2_xmlread.pas
@@ -1987,7 +1987,7 @@ begin
       FSource.NextChar;
       if (wc = Delim) and (FSource.FEntity = start) then
         Break;
-      if (wc = #10) or (wc = #9) or (wc = #13) then
+      if (not FPreserveWhitespace) and (ord(wc) in [9,10,13]) then
         wc := #32;
       BufAppend(FValue, wc);
     end