From 421ccf5a757047808f11896bd6290ecb0a33a264 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 1 Dec 2009 15:53:14 +0000
Subject: [PATCH] SetAsEmbeddedType

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1029 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/ws_helper/ws_parser_imp.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/wst/trunk/ws_helper/ws_parser_imp.pas b/wst/trunk/ws_helper/ws_parser_imp.pas
index 8d5c34b59..22cbcd234 100644
--- a/wst/trunk/ws_helper/ws_parser_imp.pas
+++ b/wst/trunk/ws_helper/ws_parser_imp.pas
@@ -1660,6 +1660,10 @@ begin
       FBaseNameSpace := s_xs;
       Result := ParseOtherContent();
     end;
+    if ( Result <> nil ) then begin
+      if ( IsEmbeddedType(Result) <> FEmbededDef ) then
+        SetAsEmbeddedType(Result,FEmbededDef);
+    end;
 {$IFDEF WST_HANDLE_DOC}
     if ( Result <> nil ) then
       ParseDocumentation(Result);