Use normal (non-destructive) Append() for generating reference links

whatwg · Aug 9, 2023 · 9226f89 · 9226f89
1 parent abe0b17
commit 9226f89
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/wattsi.pas b/src/wattsi.pas
@@ -1588,15 +1588,13 @@    TCrossReferences = record
 
             NewLink := ConstructHTMLElement(eA);
             Scratch := Default(Rope);
-            ExtractedData := Element.TextContent.ExtractAll();
             Scratch.Append('#refs');
-            Scratch.AppendDestructively(ExtractedData);
+            Scratch.Append(ReferenceName);
             NewLink.SetAttributeDestructively('href', Scratch);
 
             Scratch := Default(Rope);
-            ExtractedData := Element.TextContent.ExtractAll();
             Scratch.Append('[');
-            Scratch.AppendDestructively(ExtractedData);
+            Scratch.Append(ReferenceName);
             Scratch.Append(']');
             NewLink.AppendChild(TText.CreateDestructively(Scratch));