From 042fb0fcc22ebea296272b65b46bde91fc3c3f6f Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 29 Dec 2020 21:17:29 +0000
Subject: [PATCH] fpspreadsheet: Fix incorrect html tags disappearing from cell
 text.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7945 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/source/common/fpshtmlutils.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/fpspreadsheet/source/common/fpshtmlutils.pas b/components/fpspreadsheet/source/common/fpshtmlutils.pas
index 300a52771..70cc2c966 100644
--- a/components/fpspreadsheet/source/common/fpshtmlutils.pas
+++ b/components/fpspreadsheet/source/common/fpshtmlutils.pas
@@ -912,6 +912,8 @@ begin
                    (NoCaseTag = '</SUB>') or (NoCaseTag = '</SUP>') then ProcessFontRestore;
            'U': if (NoCaseTag = '</U>') then ProcessFontRestore;
          end;
+  else
+      FPlainText := FPlainText + ActualTag;
   end;
 end;