anchor.diff:    finally
       opts.Free;
     end;
  +  // shortcuts for the actions standing in the main action list
  +  fname1 := getCoeditDocPath + 'mainshortcuts.txt';
  +  if fileExists(fname1) then with TCEPersistentMainShortcuts.create(nil) do
  +  try
  +    loadFromFile(fname1);
  +    assignTo(self);
  +  finally
  +    Free;
  +  end;
   end;
   
   procedure TCEMainForm.SaveSettings;
  
positive.code:   fname2: string;
    opts: TCEOptions;
  begin
    fname1 := getCoeditDocPath + 'options2.txt';
    fname2 := getCoeditDocPath + 'options2.bak';
    opts := TCEOptions.create(nil);
  
negative.code: end;
  
  procedure TCEMainForm.scedSendItem(const category, identifier: string; aShortcut: TShortcut);
  var
    act: TCustomAction;
    i: integer;
  begin
    for i:= 0 to Actions.ActionCount-1 do
    begin
      act := TCustomAction(Actions.Actions[i]);
      if act.Category <> category then
        continue;
      if act.Caption <> identifier then
        continue;
      act.ShortCut := aShortcut;
      break;
    end;
  end;
  {$ENDREGION}
  
  