Prevent snippets editor from stripping REML p tags

If a single paragraph was entered in the snippet's editor's REML editor
in form <p>content here</p>, with no inline tags the <p> tags would be
stripped. This is undesirable because text outside of <p> tags may be
rendered differently to text in <p> tags, so stripping the tags could
change the rendering.

This behaviour is changed by this commit and <p> tags are now preserved.

Author: delphidabbler

Src/ActiveText.UMain.pas

@@ -205,8 +205,8 @@   TActiveTextAttrNames = record
     ///  <summary>Checks if the active text object contains only plain text.
     ///  </summary>
     ///  <remarks>Plain text is considered to be active text with no action
-    ///  elements except for "para". This can rendered in plain text with no
-    ///  loss of formatting.</remarks>
+    ///  elements except for "document" or "block". This can rendered in plain
+    ///  text with no loss of formatting.</remarks>
     function IsPlainText: Boolean;
     ///  <summary>Checks if the active text object is a valid active text
     ///  document.</summary>
@@ -523,8 +523,8 @@   TActiveText = class(TInterfacedObject,
     ///  </summary>
     ///  <remarks>
     ///  <para>Plain text is considered to be active text with no action
-    ///  elements except for "para". This can rendered in plain text with no
-    ///  loss of formatting.</para>
+    ///  elements except for "document" or "block". This can rendered in plain
+    ///  text with no loss of formatting.</para>
     ///  <para>Method of IActiveText.</para>
     ///  </remarks>
     function IsPlainText: Boolean;
@@ -909,7 +909,7 @@ function TActiveText.IsPlainText: Boolean;
   for Elem in fElems do
   begin
     if Supports(Elem, IActiveTextActionElem, ActionElem)
-      and not (ActionElem.Kind in [ekPara, ekDocument]) then
+      and not (ActionElem.Kind in [ekBlock, ekDocument]) then
       Exit(False);
   end;
   Result := True;