Merge pull request #11009 from keymanapp/fix/developer/11002-kps-edit…

…or-should-not-emit-empty-fields fix(developer): suppress emission of new empty fields in package editor
keymanapp · Mar 21, 2024 · 5825c01 · 5825c01
2 parents d8deb95 + 374955d
commit 5825c01
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/common/windows/delphi/packages/PackageInfo.pas b/common/windows/delphi/packages/PackageInfo.pas
@@ -1857,7 +1857,8 @@ procedure TPackage.DoSaveXML(ARoot: IXMLNode);
   Keyboards.SaveXML(ARoot);
   if LexicalModels.Count > 0 then
     LexicalModels.SaveXML(ARoot);
-  RelatedPackages.SaveXML(ARoot);
+  if RelatedPackages.Count > 0 then
+    RelatedPackages.SaveXML(ARoot);
 end;
 
 procedure TPackage.SaveIni;
@@ -2742,6 +2743,9 @@ procedure TPackageKeyboardExampleList.SaveXML(ARoot: IXMLNode);
   j: Integer;
   AExample: IXMLNode;
 begin
+  if Count = 0 then
+    Exit;
+
   AExamples := ARoot.AddChild(SXML_PackageKeyboard_Examples);
   for j := 0 to Count - 1 do
   begin