From 82280d7f502bf60f8e2001f8192706b357910109 Mon Sep 17 00:00:00 2001
From: Jonathan Barnard <winelauncher.jonathan@googlemail.com>
Date: Thu, 19 Feb 2009 12:36:28 +0000
Subject: [PATCH] UnitSettings: Make use of ProgramsListSavePrefix.

---
 Form/Settings/UnitSettings.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Form/Settings/UnitSettings.pas b/Form/Settings/UnitSettings.pas
index 767e89e..9be1a73 100644
--- a/Form/Settings/UnitSettings.pas
+++ b/Form/Settings/UnitSettings.pas
@@ -240,6 +240,7 @@ procedure TForm4.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 var
 LocalChannel:string;
 TempInt:Integer;
+loop:Integer;
 begin
 { TODO : Set LocalChannel. }
 LocalChannel := '';
@@ -249,6 +250,12 @@ Log(3, LocalChannel, ( Form4.Name + ' close has happen.' ));
 
 ProgramsListSaveAll();
 
+for loop := 0 to (PreFixList[0].Count -1) do
+begin
+     ProgramsListSavePrefix(PreFixList[0][loop]);
+end;
+
+
 {Temp save of StringGrid_TerminalSettings}
 if TerrminalSettingsIsFine = true then
    begin
-- 
2.11.4.GIT